Equirectangular approximation to distance on a great circle

Time bar (total: 13.0s)

start0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated

analyze0.0ms (0%)

Memory
0.6MiB live, 0.6MiB allocated
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.8%0.2%0%0%0%0
100%99.8%0%0.2%0%0%0%1
Compiler

Compiled 34 to 16 computations (52.9% saved)

sample1.9s (14.6%)

Memory
-77.6MiB live, 1 190.9MiB allocated
Samples
1.1s6 586×0valid
383.0ms1 670×1valid
Precisions
Click to see histograms. Total time spent on operations: 793.0ms
ival-mult: 229.0ms (28.9% of total)
ival-hypot: 169.0ms (21.3% of total)
ival-cos: 121.0ms (15.3% of total)
ival-sub: 84.0ms (10.6% of total)
ival-div: 70.0ms (8.8% of total)
ival-add: 57.0ms (7.2% of total)
adjust: 48.0ms (6.1% of total)
ival-true: 6.0ms (0.8% of total)
exact: 5.0ms (0.6% of total)
ival-assert: 3.0ms (0.4% of total)
Bogosity

explain349.0ms (2.7%)

Memory
-4.4MiB live, 417.5MiB allocated
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1770-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))))
72114(5.056284312845825e-199 -1.2327657661725344e+70 5.663677763853792e-177 -1.703892055912076e+164 -5.901545768848098e-265)0-(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
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)))))
00-0-lambda2
00-0-(+.f64 phi1 phi2)
00-0-phi2
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-(-.f64 lambda1 lambda2)
00-0-(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))
00-0-R
00-0-lambda1
00-0-phi1
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-#s(literal 2 binary64)
00-0-(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
00-0-(-.f64 phi1 phi2)
00-0-(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
cos.f64(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))sensitivity1860
sqrt.f64(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))oflow-rescue1770
↳(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))overflow110
↳(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))overflow120
↳(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))overflow177
Confusion
Predicted +Predicted -
+1080
-11434
Precision
0.4864864864864865
Recall
1.0
Confusion?
Predicted +Predicted MaybePredicted -
+10800
-114034
Precision?
0.4864864864864865
Recall?
1.0
Freqs
test
numberfreq
034
181
2141
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
177.0ms352×1valid
20.0ms160×0valid
Compiler

Compiled 351 to 55 computations (84.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 156.0ms
ival-mult: 62.0ms (39.8% of total)
ival-sub: 27.0ms (17.3% of total)
ival-cos: 24.0ms (15.4% of total)
ival-hypot: 13.0ms (8.3% of total)
adjust: 11.0ms (7.1% of total)
ival-div: 9.0ms (5.8% of total)
ival-add: 8.0ms (5.1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

preprocess308.0ms (2.4%)

Memory
-2.8MiB live, 350.0MiB allocated
Algorithm
1×egg-herbie
Rules
15 840×lower-fma.f64
15 840×lower-fma.f32
2 462×lower-*.f32
2 454×lower-*.f64
2 156×unsub-neg
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0149667
1357661
2923645
34473645
47816645
01732
02832
14332
28832
330232
4105532
5334832
6681232
0814916
Stop Event
1×iter limit
1×node limit
1×iter limit
1×node limit
Calls
Call 1
Inputs
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
Outputs
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
Symmetry

(negabs R)

(sort lambda1 lambda2)

(sort phi1 phi2)

Compiler

Compiled 37 to 17 computations (54.1% saved)

eval0.0ms (0%)

Memory
0.4MiB live, 0.4MiB allocated
Compiler

Compiled 5 to 5 computations (0% saved)

prune1.0ms (0%)

Memory
2.1MiB live, 2.1MiB allocated
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶60.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)))))
Compiler

Compiled 37 to 17 computations (54.1% saved)

simplify274.0ms (2.1%)

Memory
16.5MiB live, 330.3MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
cost-diff0
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
cost-diff0
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
cost-diff128
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
cost-diff2880
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
Rules
15 840×lower-fma.f64
15 840×lower-fma.f32
2 462×lower-*.f32
2 454×lower-*.f64
2 156×unsub-neg
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
017155
028155
143155
288155
3302155
41055155
53348155
66812155
08149122
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
R
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(+.f64 phi1 phi2)
phi1
phi2
#s(literal 2 binary64)
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
Outputs
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
R
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 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 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(+.f64 phi1 phi2)
phi1
phi2
#s(literal 2 binary64)
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)

localize124.0ms (1%)

Memory
-12.6MiB live, 111.8MiB allocated
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
accuracy0.1328125
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
accuracy0.2421875
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
accuracy15.31909023040973
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy40.91708425361234
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
Samples
61.0ms176×1valid
24.0ms80×0valid
Compiler

Compiled 157 to 19 computations (87.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 64.0ms
ival-hypot: 21.0ms (32.7% of total)
ival-mult: 13.0ms (20.2% of total)
ival-cos: 12.0ms (18.7% of total)
adjust: 6.0ms (9.3% of total)
ival-sub: 4.0ms (6.2% of total)
ival-add: 4.0ms (6.2% of total)
ival-div: 3.0ms (4.7% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series62.0ms (0.5%)

Memory
0.9MiB live, 74.5MiB allocated
Counts
6 → 276
Calls
Call 1
Inputs
#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())
#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())
#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())
Outputs
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (patch (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))) (taylor inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1)))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (pow phi2 2) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (pow phi2 2) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2)))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (patch (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (patch (*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (patch (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (patch (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
Calls

69 calls:

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

simplify358.0ms (2.8%)

Memory
-10.8MiB live, 271.0MiB allocated
Algorithm
1×egg-herbie
Rules
10 254×lower-fma.f64
10 254×lower-fma.f32
6 506×lower-*.f64
6 506×lower-*.f32
5 644×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
088410001
129749253
277969253
080688635
Stop Event
1×iter limit
1×node limit
Counts
276 → 274
Calls
Call 1
Inputs
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(* 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)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
Outputs
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.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) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 lambda1 lambda2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))) (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.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)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #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))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2))))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 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))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(*.f64 (-.f64 (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)) (neg.f64 lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (-.f64 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)))))))))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.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))) (/.f64 phi2 (neg.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)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.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 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.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))) phi1) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.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))) (/.f64 phi1 (neg.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)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.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 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) (*.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))) (neg.f64 phi2)) phi2))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (*.f64 lambda1 lambda1)) (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (*.f64 lambda1 lambda1)) (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1)) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1)) lambda1)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (*.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (*.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2)) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2)) lambda2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (fma.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))))) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.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)) (fma.f64 phi2 (/.f64 phi2 (*.f64 phi1 phi1)) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.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)) (fma.f64 phi2 (/.f64 phi2 (*.f64 phi1 phi1)) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(*.f64 (*.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) phi2) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) phi1)) phi1)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) phi2) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) phi1)) phi1)))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (fma.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))))) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 phi1 (*.f64 phi2 phi2)) (fma.f64 phi1 (/.f64 #s(literal -2 binary64) phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(*.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 phi1 (*.f64 phi2 phi2)) (fma.f64 phi1 (/.f64 #s(literal -2 binary64) phi2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) phi1) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) phi2)) phi2)))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(*.f64 (*.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) phi1) (/.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) phi2)) phi2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R)
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) 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)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (*.f64 lambda1 lambda2) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R))
(* 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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)) (/.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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)) (/.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))))))
(neg.f64 (*.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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (fma.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) R (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) (neg.f64 lambda1)))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R)
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) R)))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (*.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)) (/.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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1) (/.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (*.f64 (*.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))) R) (/.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) R)
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) R (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R)) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) R (/.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))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R)
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 phi1 R) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))) (*.f64 (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))))) (*.f64 (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (*.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) R)))) (*.f64 (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R (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 (*.f64 phi2 R) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.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 R (/.f64 (*.f64 phi2 R) phi1))))
(* -1 (* R phi1))
(*.f64 phi1 (neg.f64 R))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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 R phi1)) (*.f64 phi2 R)) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) 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)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) R)
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))))) (*.f64 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))))))) (*.f64 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (-.f64 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi1 #s(literal -2 binary64))) R)))) (*.f64 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) R))
(* R phi2)
(*.f64 phi2 R)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.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 R (*.f64 phi1 (/.f64 R phi2)))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.f64 phi1 R)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (fma.f64 phi1 R (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) (*.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)))))) (neg.f64 phi2))) phi2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (fma.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) lambda1))) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) lambda1))) lambda1)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 lambda2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) lambda2))) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(*.f64 (*.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) lambda2))) lambda2)))
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(-.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (fma.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (fma.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 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (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))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.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)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (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))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.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.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 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))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* 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))) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (*.f64 (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)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (*.f64 (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)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(*.f64 lambda2 (-.f64 (*.f64 (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)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 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)))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(fma.f64 phi1 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 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)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (-.f64 lambda1 lambda2) (cos.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)))
(fma.f64 phi2 (fma.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))))) (*.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)))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (-.f64 lambda1 lambda2) (cos.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))

rewrite276.0ms (2.1%)

Memory
13.0MiB live, 254.1MiB allocated
Rules
7 434×lower-fma.f64
7 434×lower-fma.f32
6 244×lower-*.f32
6 236×lower-*.f64
3 492×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
017128
02886
19786
272086
0887276
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
6 → 300
Calls
Call 1
Inputs
(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
Outputs
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (exp.f64 (log.f64 (-.f64 phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 phi1 phi2))
(hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (-.f64 phi1 phi2))))
(hypot.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(hypot.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (neg.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (neg.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(*.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.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 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(*.f64 (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 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 phi1 phi2))))) (*.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 phi1 phi2))))))
(+.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(+.f64 (*.f64 (-.f64 phi1 phi2) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (*.f64 phi1 (-.f64 phi1 phi2)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) phi1)) (neg.f64 (*.f64 (-.f64 phi1 phi2) phi2)))
(+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 phi1 (-.f64 phi1 phi2))) (*.f64 phi2 (-.f64 phi2 phi1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(-.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.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 phi1 phi2))))))) (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 phi1 (-.f64 phi1 phi2) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 phi1 phi2) phi1 (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.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 phi1 phi2))))))
(fma.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (-.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 phi1 phi2))))))
(fma.f64 #s(literal 1 binary64) (*.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 phi1 phi2))))))
(fma.f64 #s(literal 1 binary64) (*.f64 (-.f64 phi1 phi2) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (/.f64 #s(literal 1 binary64) (+.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 phi1 phi2))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.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 phi1 phi2))))))
(fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (*.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 phi1 phi2))))))
(fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.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 phi1 phi2))))))
(fma.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (*.f64 (+.f64 phi1 phi2) (*.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 phi1 phi2))))))
(fma.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (+.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 phi1 phi2))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.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 phi1 phi2))))))
(fma.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (-.f64 phi1 phi2) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (pow.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (exp.f64 (log.f64 (-.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 phi1 phi2))))))
(fma.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (-.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 phi1 phi2))))))
(fma.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1 binary64)) (/.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 phi1 phi2))))))
(fma.f64 (/.f64 (-.f64 lambda1 lambda2) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (*.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 2 binary64)) (-.f64 lambda1 lambda2)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.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 phi1 phi2))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.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 phi1 phi2))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 2 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.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 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (*.f64 (-.f64 lambda1 lambda2) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (-.f64 phi1 phi2) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (-.f64 phi1 phi2) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 (-.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (-.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 phi1 phi2))))))
(fma.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (*.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 phi1 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 phi1 #s(literal 1 binary64)) (-.f64 phi1 phi2) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 phi1 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 phi1 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (*.f64 (-.f64 phi1 phi2) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(neg.f64 (/.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))
(/.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.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 phi1 phi2)))))) (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 phi1 phi2) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 phi1 phi2)))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))))) (*.f64 (+.f64 lambda1 lambda2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 phi1 phi2) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 phi1 phi2)))
(/.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (+.f64 lambda1 lambda2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (+.f64 lambda1 lambda2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2)) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (*.f64 (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (*.f64 (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (+.f64 lambda1 lambda2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (+.f64 phi1 phi2) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (+.f64 phi1 phi2) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (*.f64 (+.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 lambda1 lambda2) (*.f64 (+.f64 phi1 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (+.f64 phi1 phi2) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 lambda1 lambda2) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (*.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (*.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (neg.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (neg.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 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (fma.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (*.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))) (+.f64 (/.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 (*.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) #s(literal 1 binary64)) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal -1 binary64))
(*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(*.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(*.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))))
(*.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(*.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(*.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(*.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(*.f64 (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2)))
(/.f64 (*.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (*.f64 (-.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 phi1 phi2))))))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (*.f64 R (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
(*.f64 R (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (*.f64 (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) R))
(*.f64 (*.f64 R (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda1))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))))
(+.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) lambda1)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) lambda2))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 lambda1 lambda2))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 lambda2 (-.f64 lambda2 lambda1))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2)))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1))
(+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda1)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (*.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) lambda1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (*.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (*.f64 lambda2 (-.f64 lambda2 lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (*.f64 lambda1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (neg.f64 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (*.f64 (neg.f64 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 lambda1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 lambda1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (neg.f64 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda1)) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))))
(fma.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(fma.f64 (neg.f64 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 lambda1 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) lambda1) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) lambda2))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 lambda1 (-.f64 lambda1 lambda2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 lambda2 (-.f64 lambda2 lambda1))))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2)))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1))
(fma.f64 (*.f64 (-.f64 lambda1 lambda2) lambda1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) lambda1)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (*.f64 lambda2 (-.f64 lambda2 lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (*.f64 (*.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 (neg.f64 lambda2) (-.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (fma.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 phi1 phi2)))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (fma.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 phi1 phi2)))) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (fma.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 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (neg.f64 (+.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 1 binary64))
(pow.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2))
(*.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(fma.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1))
(fma.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1 binary64) (*.f64 lambda2 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) lambda2 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1))
(/.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 (neg.f64 lambda2) (-.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1)) (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (+.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))
(*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (*.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/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 1/2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/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 1/2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))

eval108.0ms (0.8%)

Memory
15.9MiB live, 126.7MiB allocated
Compiler

Compiled 32 675 to 2 656 computations (91.9% saved)

prune169.0ms (1.3%)

Memory
12.2MiB live, 253.2MiB allocated
Pruning

22 alts after pruning (22 fresh and 0 done)

PrunedKeptTotal
New67022692
Fresh000
Picked101
Done000
Total67122693
Accuracy
96.5%
Counts
693 → 22
Alt Table
Click to see full alt table
StatusAccuracyProgram
60.0%
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
27.6%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
24.7%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
▶54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
▶73.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
70.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
54.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
▶12.9%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
13.6%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
29.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
18.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
19.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
30.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
39.8%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
▶29.1%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
13.6%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
3.3%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
58.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
▶34.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
19.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1)))))
19.5%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
58.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
Compiler

Compiled 778 to 486 computations (37.5% saved)

simplify194.0ms (1.5%)

Memory
3.0MiB live, 152.7MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
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))) (neg.f64 lambda2))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
cost-diff0
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
cost-diff0
(*.f64 R lambda2)
cost-diff0
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
cost-diff0
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
cost-diff0
(/.f64 phi1 (neg.f64 phi2))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
cost-diff1024
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
cost-diff0
(*.f64 phi2 R)
cost-diff0
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
cost-diff0
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
cost-diff0
(hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
Rules
11 796×lower-fma.f32
11 794×lower-fma.f64
2 920×lower-*.f32
2 900×lower-*.f64
1 856×unsub-neg
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
042439
065439
1116439
2223439
3670427
42279427
55047427
08189299
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
phi2
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 #s(literal 1/2 binary64) phi2)
#s(literal 1/2 binary64)
(-.f64 lambda1 lambda2)
lambda1
lambda2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 phi2 R)
phi2
R
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
phi2
(/.f64 phi1 (neg.f64 phi2))
phi1
(neg.f64 phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda2)
R
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(neg.f64 lambda2)
lambda2
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))))
(hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))
phi2
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(-.f64 lambda1 lambda2)
lambda1
lambda2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))
(*.f64 phi2 R)
(*.f64 R phi2)
phi2
R
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(-.f64 phi2 phi1)
phi2
(/.f64 phi1 (neg.f64 phi2))
phi1
(neg.f64 phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda2)
R
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(neg.f64 lambda2)
lambda2

localize182.0ms (1.4%)

Memory
9.1MiB live, 201.1MiB allocated
Localize:

Found 18 expressions of interest:

NewMetricScoreProgram
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
accuracy0.20703125
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
accuracy15.319090230409735
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy57.892643008360395
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
accuracy0
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
accuracy0.12728500976844204
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
accuracy15.319090230409735
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy45.380568356167245
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
accuracy0
(neg.f64 phi2)
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
accuracy6.62297292869833
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
accuracy30.07697538896571
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
accuracy0
(*.f64 phi2 R)
accuracy41.98943926258246
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
accuracy0
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
accuracy0.15234375
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
accuracy23.23225602489448
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
Samples
92.0ms178×1valid
45.0ms77×0valid
1.0ms1×2valid
Compiler

Compiled 381 to 32 computations (91.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 102.0ms
ival-hypot: 36.0ms (35.5% of total)
ival-mult: 21.0ms (20.7% of total)
ival-cos: 21.0ms (20.7% of total)
adjust: 8.0ms (7.9% of total)
ival-add: 5.0ms (4.9% of total)
ival-div: 5.0ms (4.9% of total)
ival-sub: 3.0ms (3% of total)
ival-neg: 2.0ms (2% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series172.0ms (1.3%)

Memory
-14.1MiB live, 114.3MiB allocated
Counts
20 → 768
Calls
Call 1
Inputs
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())
#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())
#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())
#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())
#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())
#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())
#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())
#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())
#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())
#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())
Outputs
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi2)))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 phi2))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf phi2) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor 0 R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor -inf R) (#s(alt (*.f64 phi2 R) (patch (*.f64 phi2 R) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor -inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor 0 phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) (patch (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi1) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor 0 phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ phi1 phi2)) (taylor -inf phi2) (#s(alt (/.f64 phi1 (neg.f64 phi2)) (patch (/.f64 phi1 (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(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))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(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))))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(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))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(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))))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (patch (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf R) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor 0 lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (* R lambda2) (taylor -inf lambda2) (#s(alt (*.f64 R lambda2) (patch (*.f64 R lambda2) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2))))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/8 (pow phi2 2))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi2) (taylor inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi2) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (patch (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
Calls

192 calls:

TimeVariablePointExpression
43.0ms
phi1
@inf
(/ phi1 (neg phi2))
6.0ms
phi2
@0
(/ phi1 (neg phi2))
3.0ms
lambda2
@inf
(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
1.0ms
phi2
@0
(sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))
1.0ms
lambda1
@0
(sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))

simplify463.0ms (3.6%)

Memory
27.6MiB live, 521.8MiB allocated
Algorithm
1×egg-herbie
Rules
10 084×lower-fma.f64
10 084×lower-fma.f32
7 334×lower-*.f64
7 334×lower-*.f32
5 540×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0104328022
1345626212
0808424056
Stop Event
1×iter limit
1×node limit
Counts
768 → 758
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)))))
(- lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* 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)))))
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* -1 phi1)
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 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 (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 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* -1 (/ phi1 phi2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (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)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* 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 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
1
(+ 1 (* -1/8 (pow phi2 2)))
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -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)))
Outputs
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* 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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (fma.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)))) (neg.f64 lambda1)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.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))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 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))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 R phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (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 (fma.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)))))
(neg.f64 (*.f64 lambda1 (-.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))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.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)) (neg.f64 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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)))))) (neg.f64 lambda2))) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #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) (fma.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))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.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))) (/.f64 phi2 (neg.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)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.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 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.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))) phi1) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.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))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.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)))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.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))) phi2) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi2)) (neg.f64 phi2)) phi2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/1440 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))))))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(*.f64 (neg.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1 binary64)))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(*.f64 (neg.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) #s(literal 1 binary64))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(neg.f64 (fma.f64 phi2 (fma.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64))))))) phi2))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 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) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)) #s(literal 3 binary64))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))) (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (cos (* 1/2 phi2)))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) lambda2))))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 (*.f64 (*.f64 phi2 phi2) #s(literal -1/8 binary64)) (-.f64 lambda1 lambda2) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (*.f64 phi2 phi2) #s(literal 1/384 binary64) #s(literal -1/8 binary64))) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/46080 binary64) #s(literal 1/384 binary64))) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* 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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (fma.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)))) (neg.f64 lambda1)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.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))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 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))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 R phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* -1 phi1)
(neg.f64 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 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)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
phi2
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* 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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (fma.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)))) (neg.f64 lambda1)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.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))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 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))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 R phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (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 (fma.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)))))
(neg.f64 (*.f64 lambda1 (-.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))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.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)) (neg.f64 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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)))))) (neg.f64 lambda2))) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #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) (fma.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))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.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))) (/.f64 phi2 (neg.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)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.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 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.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))) phi1) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.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))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.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)))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.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))) phi2) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* -1 (/ phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* 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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (fma.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)))) (neg.f64 lambda1)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.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))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 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))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 R phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(fma.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 (*.f64 R 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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.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))))
(* 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)))))
(fma.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))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 R 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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.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))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(* R lambda2)
(*.f64 R lambda2)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.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))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.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)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.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.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))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.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.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 (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* 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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (fma.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)))) (neg.f64 lambda1)))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.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))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda1))) (neg.f64 lambda1)))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (*.f64 (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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 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))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 R phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (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 (fma.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)))))
(neg.f64 (*.f64 lambda1 (-.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))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.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)) (neg.f64 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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)))))) (neg.f64 lambda2))) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #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) (fma.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))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (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))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.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))) (/.f64 phi2 (neg.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)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.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 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.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))) phi1) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.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))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.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)))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.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))) phi2) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/48 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (fma.f64 (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/48 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi2 2)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/8 binary64) #s(literal 1 binary64))
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))
(fma.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal 1/384 binary64) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))
(fma.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))

rewrite310.0ms (2.4%)

Memory
0.3MiB live, 432.6MiB allocated
Rules
4 432×lower-fma.f32
4 430×lower-fma.f64
4 310×lower-*.f32
4 290×lower-*.f64
4 250×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
042394
065306
1204306
21348306
08242266
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
20 → 276
Calls
Call 1
Inputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 phi2 R)
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(/.f64 phi1 (neg.f64 phi2))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda2)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(neg.f64 phi2)
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2))))
(exp.f64 (*.f64 (log.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2))) #s(literal 1/2 binary64)))
(hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))
(hypot.f64 phi2 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))))
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) phi2)
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (neg.f64 phi2))
(hypot.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) (exp.f64 (log.f64 phi2)))
(hypot.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))
(hypot.f64 (neg.f64 phi2) (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))))
(hypot.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))) phi2)
(hypot.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))) (neg.f64 phi2))
(hypot.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))) (exp.f64 (log.f64 phi2)))
(hypot.f64 (exp.f64 (log.f64 phi2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))
(hypot.f64 (exp.f64 (log.f64 phi2)) (exp.f64 (log.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))))
(sqrt.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.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 phi2 #s(literal 1/2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (sqrt.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)))) (sqrt.f64 (fma.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 phi2 #s(literal 1/2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64)))))))))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64)))))))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.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 phi2 #s(literal 1/2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64))))) (sqrt.f64 (neg.f64 (-.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64))))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.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 phi2 #s(literal 1/2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64))))))))))))
(pow.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)) (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.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 phi2 #s(literal 1/2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 phi2 #s(literal 1/2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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 phi2 #s(literal 1/2 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 phi2 #s(literal 1/2 binary64)))))))) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))))
(*.f64 (sqrt.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64)))))))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64))))))))))))
(*.f64 (sqrt.f64 (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (*.f64 phi2 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 phi2 #s(literal 1/2 binary64))))))))))))
(*.f64 (pow.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)) (pow.f64 (fma.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 phi2 #s(literal 1/2 binary64))))))) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 lambda2)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 lambda2))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (*.f64 lambda1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 lambda1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 lambda1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (*.f64 (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 (*.f64 lambda1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(*.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi2 #s(literal 1/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 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))
(*.f64 R phi2)
(*.f64 phi2 R)
(+.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))
(+.f64 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)) phi2)
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) (/.f64 (*.f64 phi2 phi2) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(-.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))) (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))))
(fma.f64 phi1 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi2) phi2)
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) phi2)
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(fma.f64 (neg.f64 (/.f64 phi1 phi2)) phi2 phi2)
(fma.f64 #s(literal 1 binary64) phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))
(fma.f64 #s(literal 1 binary64) (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)) phi2)
(fma.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (/.f64 phi2 phi1)) phi2)
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)
(fma.f64 #s(literal -1 binary64) (neg.f64 phi2) (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))
(fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 phi2) #s(literal 1 binary64)) (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))
(fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)
(fma.f64 (/.f64 phi1 phi2) (neg.f64 phi2) phi2)
(fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)
(fma.f64 (neg.f64 (*.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) phi2) phi2)
(fma.f64 (/.f64 #s(literal 1 binary64) phi2) (/.f64 (neg.f64 phi2) (/.f64 #s(literal 1 binary64) phi1)) phi2)
(fma.f64 (*.f64 (neg.f64 phi1) phi2) (/.f64 #s(literal 1 binary64) phi2) phi2)
(fma.f64 (*.f64 phi2 (neg.f64 phi1)) (/.f64 #s(literal 1 binary64) phi2) phi2)
(fma.f64 (*.f64 phi2 #s(literal 1 binary64)) (neg.f64 (/.f64 phi1 phi2)) phi2)
(fma.f64 (*.f64 (*.f64 phi1 phi2) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) phi2) phi2)
(fma.f64 (*.f64 phi1 #s(literal -1 binary64)) (/.f64 phi2 phi2) phi2)
(fma.f64 (/.f64 phi2 #s(literal 1 binary64)) (neg.f64 (/.f64 phi1 phi2)) phi2)
(fma.f64 (/.f64 phi2 phi2) (*.f64 phi1 #s(literal -1 binary64)) phi2)
(fma.f64 (/.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) phi1)) phi2)
(fma.f64 (/.f64 (neg.f64 phi1) #s(literal -1 binary64)) (/.f64 phi2 (neg.f64 phi2)) phi2)
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2)))))) (fma.f64 phi2 (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2)))))) (fma.f64 phi2 phi2 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)) (*.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi2) phi2)) (neg.f64 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 phi2 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)) (*.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi2) phi2)) (neg.f64 phi2))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2))))))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2))))))) (neg.f64 (fma.f64 phi2 phi2 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)) (*.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi2) phi2)) (neg.f64 phi2)))))
(/.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))) (neg.f64 (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(/.f64 (-.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))) (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) (*.f64 (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (*.f64 phi2 phi2))) (*.f64 (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2)))))))) (neg.f64 (neg.f64 (fma.f64 phi2 (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)))) (neg.f64 (neg.f64 (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
(/.f64 (neg.f64 (-.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)))) (neg.f64 (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 phi2) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) (fma.f64 (/.f64 (*.f64 phi2 phi2) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) (/.f64 (*.f64 phi2 phi2) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))) (/.f64 (*.f64 phi2 phi2) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)) #s(literal -1 binary64))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2)))))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)))))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2)))))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 phi2 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)) (*.f64 phi1 phi2)) (*.f64 (*.f64 phi1 phi2) phi2)) (neg.f64 phi2)))))
(*.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(*.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2))))))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))))))
(*.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
(*.f64 (-.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (-.f64 phi2 (neg.f64 (*.f64 (/.f64 phi1 phi2) phi2)))))
(*.f64 (+.f64 (neg.f64 (/.f64 phi1 phi2)) #s(literal 1 binary64)) phi2)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2))
(exp.f64 (*.f64 (log.f64 (neg.f64 (/.f64 phi2 phi1))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 phi1 phi2))
(-.f64 (/.f64 #s(literal 0 binary64) phi2) (/.f64 phi1 phi2))
(neg.f64 (/.f64 phi1 phi2))
(/.f64 phi1 (neg.f64 phi2))
(/.f64 (neg.f64 phi1) phi2)
(/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (neg.f64 (/.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) (*.f64 phi1 #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 phi2 (*.f64 phi1 #s(literal -1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (neg.f64 (/.f64 phi2 phi1))))
(/.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2))
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) (neg.f64 phi2))
(/.f64 (*.f64 phi1 #s(literal -1 binary64)) phi2)
(/.f64 (neg.f64 (neg.f64 (neg.f64 phi1))) phi2)
(/.f64 (neg.f64 (*.f64 phi1 #s(literal 1 binary64))) phi2)
(/.f64 (neg.f64 (*.f64 phi1 #s(literal -1 binary64))) (neg.f64 phi2))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (/.f64 phi1 phi2) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (fma.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2) (*.f64 #s(literal 0 binary64) (/.f64 phi1 phi2)))))
(pow.f64 (neg.f64 (/.f64 phi2 phi1)) #s(literal -1 binary64))
(*.f64 phi1 (/.f64 #s(literal -1 binary64) phi2))
(*.f64 (neg.f64 phi1) (/.f64 #s(literal 1 binary64) phi2))
(*.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi1 phi2)))
(*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1)
(*.f64 (/.f64 #s(literal -1 binary64) phi2) (pow.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 phi2 phi1)))))
(*.f64 (/.f64 phi1 phi2) #s(literal -1 binary64))
(*.f64 (neg.f64 (neg.f64 phi1)) (/.f64 #s(literal -1 binary64) phi2))
(*.f64 (*.f64 phi1 #s(literal 1 binary64)) (/.f64 #s(literal -1 binary64) phi2))
(*.f64 (*.f64 phi1 #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) phi2))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 R (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) R)
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)
(*.f64 R lambda2)
(*.f64 lambda2 R)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal -1/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)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.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 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 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(neg.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (fma.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 #s(literal 0 binary64) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 #s(literal -1 binary64) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)) lambda2)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 #s(literal 0 binary64) (neg.f64 phi2))
(-.f64 #s(literal 0 binary64) phi2)
(-.f64 #s(literal 0 binary64) (/.f64 (neg.f64 phi2) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 phi2 #s(literal 1 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))
(neg.f64 phi2)
(/.f64 phi2 #s(literal -1 binary64))
(/.f64 (neg.f64 phi2) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) phi2))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) phi2) (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2))) (neg.f64 (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (+.f64 #s(literal 0 binary64) (neg.f64 (*.f64 phi2 (*.f64 phi2 phi2)))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 phi2 phi2) (*.f64 #s(literal 0 binary64) (neg.f64 phi2)))))
(*.f64 phi2 #s(literal -1 binary64))
(*.f64 (neg.f64 phi2) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) phi2)
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 0 binary64) phi2)))
(+.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 (+.f64 phi1 phi2) #s(literal -1/2 binary64)))
(-.f64 (/.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi1 phi2)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (/.f64 (*.f64 phi2 phi2) (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #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)))))
(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 -1/2 binary64)))
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.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))))) (fma.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64))) (-.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 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))))
(/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (neg.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 (neg.f64 (neg.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64))) (fma.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) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 phi1 phi2))
(/.f64 (*.f64 (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))) #s(literal 1/2 binary64)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 phi1 phi2))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (+.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64)))) (neg.f64 (fma.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 (neg.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))))) (neg.f64 (-.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)))) (neg.f64 (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))
(/.f64 (fma.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)) (-.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 phi1 #s(literal 1/2 binary64))))))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)) (/.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(*.f64 (neg.f64 (+.f64 phi1 phi2)) #s(literal -1/2 binary64))
(*.f64 (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(*.f64 (neg.f64 (neg.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64))
(*.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 phi1)) #s(literal 1/8 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.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 #s(literal 1 binary64) (-.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(*.f64 (*.f64 (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(*.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))))
(*.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(*.f64 (/.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/2 binary64) (-.f64 phi1 phi2)))
(*.f64 (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) #s(literal 2 binary64)) (/.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))))
(*.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2))))
(*.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)))) (+.f64 phi1 phi2))
(*.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi1 (*.f64 phi1 phi1) (*.f64 phi2 (*.f64 phi2 phi2))))) (/.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))

eval254.0ms (2%)

Memory
21.8MiB live, 400.6MiB allocated
Compiler

Compiled 36 997 to 2 066 computations (94.4% saved)

prune316.0ms (2.4%)

Memory
38.7MiB live, 493.5MiB allocated
Pruning

45 alts after pruning (44 fresh and 1 done)

PrunedKeptTotal
New1 127311 158
Fresh41317
Picked415
Done000
Total1 135451 180
Accuracy
98.9%
Counts
1 180 → 45
Alt Table
Click to see full alt table
StatusAccuracyProgram
60.0%
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
27.6%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
24.7%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
50.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
50.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
45.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
22.1%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
47.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
54.2%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
67.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
▶70.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
▶21.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
15.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.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))))) (neg.f64 lambda2))))
19.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
10.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
9.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
12.6%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
19.1%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
18.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
▶30.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
54.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
59.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
22.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
19.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
37.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
28.9%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
11.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
39.8%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
▶29.0%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
29.1%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.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)))))))
28.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
29.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
13.6%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
▶3.3%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
54.7%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
58.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
✓34.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
19.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1)))))
12.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
19.5%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
57.3%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
58.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
Compiler

Compiled 1 733 to 1 050 computations (39.4% saved)

simplify234.0ms (1.8%)

Memory
18.0MiB live, 285.9MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 19 expressions of interest:

NewMetricScoreProgram
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))) R)
cost-diff0
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)
cost-diff0
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
cost-diff128
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
cost-diff320
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
cost-diff1024
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
cost-diff1664
(/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
cost-diff0
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
cost-diff0
(neg.f64 phi2)
cost-diff0
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
cost-diff1152
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))
cost-diff0
(neg.f64 phi1)
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
cost-diff0
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
cost-diff0
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
Rules
6 838×lower-fma.f32
6 836×lower-fma.f64
3 704×lower-*.f32
3 676×lower-*.f64
1 960×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
053554
085562
1168520
2375488
31250485
43795474
57970474
08044346
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
phi1
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
#s(literal 1/2 binary64)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(neg.f64 phi1)
phi1
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))
(neg.f64 phi2)
phi2
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
R
(*.f64 phi1 (/.f64 R phi2))
phi1
(/.f64 R phi2)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
(/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
(*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))
(*.f64 phi1 phi1)
phi1
(*.f64 phi2 phi2)
phi2
(/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))
#s(literal 1 binary64)
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(neg.f64 (/.f64 phi1 phi2))
(/.f64 phi1 phi2)
(neg.f64 phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
R
lambda2
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
phi1
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(neg.f64 phi1)
phi1
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R (-.f64 phi1 phi2)))
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))
(*.f64 R (-.f64 phi1 phi2))
(neg.f64 phi2)
phi2
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
(-.f64 R (/.f64 (*.f64 R phi1) phi2))
R
(*.f64 phi1 (/.f64 R phi2))
(/.f64 (*.f64 R phi1) phi2)
phi1
(/.f64 R phi2)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1)) (+.f64 phi1 phi2))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1)) (+.f64 phi1 phi2)))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1)) (+.f64 phi1 phi2))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
(*.f64 (-.f64 phi1 phi2) (+.f64 phi1 phi2))
(/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
(*.f64 phi1 phi1)
(*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))
(*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2)))
(*.f64 phi1 phi1)
phi1
(*.f64 phi2 phi2)
phi2
(/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))
(/.f64 #s(literal -1 binary64) (+.f64 phi1 phi2))
#s(literal 1 binary64)
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(-.f64 (neg.f64 phi2) phi1)
(neg.f64 (/.f64 phi1 phi2))
(/.f64 phi1 (neg.f64 phi2))
(/.f64 phi1 phi2)
(neg.f64 phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(*.f64 R (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/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
R
lambda2

localize619.0ms (4.8%)

Memory
-37.9MiB live, 412.5MiB allocated
Localize:

Found 19 expressions of interest:

NewMetricScoreProgram
accuracy0.11328125
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)
accuracy0.1484375
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
accuracy15.31909023040973
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy45.380568356167245
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
accuracy15.302850550413915
(*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))
accuracy26.43729815825371
(/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
accuracy29.96185217581845
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
accuracy30.07697538896571
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
accuracy0.00390625
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
accuracy2.91280054448365
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))
accuracy6.534088876547164
(*.f64 phi1 (/.f64 R phi2))
accuracy62.448841683702526
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
accuracy0
(neg.f64 phi1)
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
accuracy47.31700415864389
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
accuracy0
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
accuracy0.140625
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
accuracy25.118607161572356
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
Samples
448.0ms176×1valid
40.0ms80×0valid
Compiler

Compiled 467 to 43 computations (90.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 416.0ms
ival-mult: 325.0ms (78.1% of total)
ival-cos: 27.0ms (6.5% of total)
ival-neg: 21.0ms (5% of total)
ival-div: 12.0ms (2.9% of total)
adjust: 10.0ms (2.4% of total)
ival-hypot: 10.0ms (2.4% of total)
ival-sub: 6.0ms (1.4% of total)
ival-add: 4.0ms (1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series121.0ms (0.9%)

Memory
42.9MiB live, 192.5MiB allocated
Counts
23 → 828
Calls
Call 1
Inputs
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())
#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())
#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())
#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())
#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())
#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())
#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())
#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())
#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())
#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())
#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())
#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())
#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())
#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())
Outputs
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) (taylor 0 phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor -inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor -inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))) (taylor -inf phi1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))) (taylor inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))) (taylor inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi1)))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 phi1))) (taylor inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))) (taylor inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))) (taylor inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))) (taylor inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (patch (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi1))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1)))) (taylor 0 lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2)) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (patch (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (neg.f64 phi1) (patch (neg.f64 phi1) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* R phi2)) (* R phi1)) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* R phi2)) (* R phi1)) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* R phi2)) (* R phi1)) (taylor 0 phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2))) (taylor inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))) (taylor -inf R) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* R phi2)) (* R phi1)) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* R phi2)) (* R phi1)) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* R phi2)) (* R phi1)) (taylor 0 phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1)))) (taylor -inf phi1) (#s(alt (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) (patch (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (neg.f64 phi2) (patch (neg.f64 phi2) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor 0 R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor 0 R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor 0 R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor 0 R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (- 1 (/ phi1 phi2))) (taylor inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (+ 1 (* -1 (/ phi1 phi2)))) (taylor -inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (+ 1 (* -1 (/ phi1 phi2)))) (taylor -inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (+ 1 (* -1 (/ phi1 phi2)))) (taylor -inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (+ 1 (* -1 (/ phi1 phi2)))) (taylor -inf R) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt R (taylor 0 phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor 0 phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor 0 phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor 0 phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (* R phi1) phi2)) (taylor inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ R phi1) (/ R phi2))) (taylor inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ R phi1) (/ R phi2))) (taylor inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ R phi1) (/ R phi2))) (taylor inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (* R phi1) phi2)) (taylor -inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2))))) (taylor -inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2))))) (taylor -inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2))))) (taylor -inf phi1) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (/ (* R phi1) phi2)) (taylor 0 phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (/ (- (* R phi2) (* R phi1)) phi2) (taylor 0 phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (/ (- (* R phi2) (* R phi1)) phi2) (taylor 0 phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (/ (- (* R phi2) (* R phi1)) phi2) (taylor 0 phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt R (taylor inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt R (taylor -inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor -inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor -inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (+ R (* -1 (/ (* R phi1) phi2))) (taylor -inf phi2) (#s(alt (-.f64 R (*.f64 phi1 (/.f64 R phi2))) (patch (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi2) (#s(alt (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 phi1) (* -1 phi2)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 phi1) (* -1 phi2)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 phi1) (* -1 phi2)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* -1 (/ phi1 phi2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* -1 (/ phi1 phi2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* -1 (/ phi1 phi2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (* -1 phi1) phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (* -1 phi1) phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (* -1 phi1) phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (* -1 (/ phi2 phi1)) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (* -1 (/ phi2 phi1)) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (* -1 (/ phi2 phi1)) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow phi2 2)) (taylor 0 phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (pow phi1 2) (pow phi2 2)) (taylor 0 phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (pow phi1 2) (pow phi2 2)) (taylor 0 phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (pow phi1 2) (pow phi2 2)) (taylor 0 phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor -inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor -inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor -inf phi1) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow phi2 2)) (taylor inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow phi2 2)) (taylor -inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor -inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor -inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor -inf phi2) (#s(alt (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (patch (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) (patch #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(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))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(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))))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(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))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(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))))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf R) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) (patch (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 phi2))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* R (* phi1 (sin (* 1/2 phi2))))) (* R (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/8 (* R (* phi1 (cos (* 1/2 phi2)))))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(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)))))))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 phi1))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/8 (* R (* phi2 (cos (* 1/2 phi1)))))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(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)))))))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor 0 R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor 0 R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor 0 R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor 0 R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor -inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor -inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor -inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (* R (cos (* 1/2 (+ phi1 phi2)))) (taylor -inf R) (#s(alt (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (patch (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/8 (pow phi1 2))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (patch (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi1) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf R) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor 0 phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (/ (* R phi1) phi2) (taylor -inf phi2) (#s(alt (*.f64 phi1 (/.f64 R phi2)) (patch (*.f64 phi1 (/.f64 R phi2)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (pow phi2 2)) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (patch (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #<representation binary64>) () ())) ())
Calls

207 calls:

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

simplify476.0ms (3.7%)

Memory
25.8MiB live, 677.6MiB allocated
Algorithm
1×egg-herbie
Rules
10 312×lower-fma.f64
10 312×lower-fma.f32
7 344×lower-*.f64
7 344×lower-*.f32
5 652×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0108225813
1357024135
0808022253
Stop Event
1×iter limit
1×node limit
Counts
828 → 815
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)))))
(- lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
phi1
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* 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 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 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)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -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 (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)))))
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (+ 1 (* -1 (/ phi1 phi2))))
(* R (+ 1 (* -1 (/ phi1 phi2))))
(* R (+ 1 (* -1 (/ phi1 phi2))))
(* R (+ 1 (* -1 (/ phi1 phi2))))
R
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(* -1 (/ (* R phi1) phi2))
(* phi1 (- (/ R phi1) (/ R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(* -1 (/ (* R phi1) phi2))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(* -1 (/ (* R phi1) phi2))
(/ (- (* R phi2) (* R phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
R
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(pow phi1 2)
(* -1 phi1)
(+ (* -1 phi1) (* -1 phi2))
(+ (* -1 phi1) (* -1 phi2))
(+ (* -1 phi1) (* -1 phi2))
(* -1 phi2)
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(* -1 phi2)
(- (* -1 phi1) phi2)
(- (* -1 phi1) phi2)
(- (* -1 phi1) phi2)
(* -1 phi1)
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
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)))))
(* -1 phi1)
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 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)))
(* -1 (pow phi2 2))
(- (pow phi1 2) (pow phi2 2))
(- (pow phi1 2) (pow phi2 2))
(- (pow phi1 2) (pow phi2 2))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(pow phi1 2)
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(* -1 (pow phi2 2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* -1 (pow phi2 2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* 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)))))
(* 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)))))
(* 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 (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)))))
(* 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))))
(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
(+ 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 phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
(* (pow phi1 2) (pow phi2 2))
Outputs
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (*.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.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 (fma.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)))) (neg.f64 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 (fma.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 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 (* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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))) lambda1)) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.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)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.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)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2)))) (fma.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)))) (neg.f64 lambda2)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))) (fma.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 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (-.f64 R (/.f64 (*.f64 R phi2) 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 (*.f64 R phi2) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (*.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)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (neg.f64 lambda1) (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.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)))))
(neg.f64 (*.f64 lambda1 (-.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))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.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)) (neg.f64 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)))))
(neg.f64 (*.f64 lambda2 (-.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))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #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) (fma.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))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))) (fma.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))))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 phi1 (fma.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))) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.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 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.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))) phi1) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))))) (fma.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))))))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.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 (*.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))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.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))) phi2) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi2)) (neg.f64 phi2)) phi2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(fma.f64 (*.f64 phi1 phi1) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi1 phi1) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
(fma.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi1 phi1) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/1440 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))
phi1
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) phi1)
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) phi1)
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1 binary64)))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1 binary64))))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))
(neg.f64 (fma.f64 phi1 (fma.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64))))))) phi1))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (hypot.f64 phi1 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda1 (cos (* 1/2 phi1)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 lambda1))) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (hypot.f64 phi1 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (cos (* 1/2 phi1)))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 phi1 phi1) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 phi1 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)) lambda2))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (cos (* 1/2 phi1)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 phi1)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(fma.f64 #s(literal -1/8 binary64) (*.f64 (-.f64 lambda1 lambda2) (*.f64 phi1 phi1)) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(fma.f64 (*.f64 phi1 phi1) (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64) #s(literal -1/8 binary64))) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(fma.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) (*.f64 (-.f64 lambda1 lambda2) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64) #s(literal 1/384 binary64))) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (*.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.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 (fma.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)))) (neg.f64 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 (fma.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 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 (* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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))) lambda1)) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.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)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.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)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2)))) (fma.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)))) (neg.f64 lambda2)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))) (fma.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 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (-.f64 R (/.f64 (*.f64 R phi2) 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 (*.f64 R phi2) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (*.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)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (neg.f64 lambda1) (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.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)))))
(neg.f64 (*.f64 lambda1 (-.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))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.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)) (neg.f64 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)))))
(neg.f64 (*.f64 lambda2 (-.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))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #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) (fma.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))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))) (fma.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))))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 phi1 (fma.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))) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.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 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.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))) phi1) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))))) (fma.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))))))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.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 (*.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))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.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))) phi2) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* R phi1)
(*.f64 R phi1)
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(*.f64 phi2 (fma.f64 R (/.f64 phi1 phi2) (neg.f64 R)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(*.f64 phi2 (fma.f64 R (/.f64 phi1 phi2) (neg.f64 R)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(*.f64 phi2 (fma.f64 R (/.f64 phi1 phi2) (neg.f64 R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 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))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* R phi1)
(*.f64 R phi1)
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(neg.f64 (*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R)))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(neg.f64 (*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R)))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(neg.f64 (*.f64 phi1 (-.f64 (/.f64 (*.f64 R phi2) phi1) R)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (*.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.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 (fma.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)))) (neg.f64 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 (fma.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 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 (* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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))) lambda1)) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.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)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.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)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2)))) (fma.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)))) (neg.f64 lambda2)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))) (fma.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 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (-.f64 R (/.f64 (*.f64 R phi2) 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 (*.f64 R phi2) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (*.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)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(* -1 (/ (* R phi1) phi2))
(/.f64 (*.f64 R phi1) (neg.f64 phi2))
(* phi1 (- (/ R phi1) (/ R phi2)))
(*.f64 phi1 (-.f64 (/.f64 R phi1) (/.f64 R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(*.f64 phi1 (-.f64 (/.f64 R phi1) (/.f64 R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(*.f64 phi1 (-.f64 (/.f64 R phi1) (/.f64 R phi2)))
(* -1 (/ (* R phi1) phi2))
(/.f64 (*.f64 R phi1) (neg.f64 phi2))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(*.f64 (neg.f64 phi1) (+.f64 (/.f64 R (neg.f64 phi1)) (/.f64 R phi2)))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(*.f64 (neg.f64 phi1) (+.f64 (/.f64 R (neg.f64 phi1)) (/.f64 R phi2)))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(*.f64 (neg.f64 phi1) (+.f64 (/.f64 R (neg.f64 phi1)) (/.f64 R phi2)))
(* -1 (/ (* R phi1) phi2))
(/.f64 (*.f64 R phi1) (neg.f64 phi2))
(/ (- (* R phi2) (* R phi1)) phi2)
(/.f64 (*.f64 R (-.f64 phi2 phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
(/.f64 (*.f64 R (-.f64 phi2 phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
(/.f64 (*.f64 R (-.f64 phi2 phi1)) phi2)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(pow phi1 2)
(*.f64 phi1 phi1)
(* -1 phi1)
(neg.f64 phi1)
(+ (* -1 phi1) (* -1 phi2))
(-.f64 (neg.f64 phi1) phi2)
(+ (* -1 phi1) (* -1 phi2))
(-.f64 (neg.f64 phi1) phi2)
(+ (* -1 phi1) (* -1 phi2))
(-.f64 (neg.f64 phi1) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(* -1 phi2)
(neg.f64 phi2)
(- (* -1 phi1) phi2)
(-.f64 (neg.f64 phi1) phi2)
(- (* -1 phi1) phi2)
(-.f64 (neg.f64 phi1) phi2)
(- (* -1 phi1) phi2)
(-.f64 (neg.f64 phi1) phi2)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) (neg.f64 phi1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) (neg.f64 phi1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 phi1) phi1))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 phi1) phi1))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 phi1) phi1))
phi2
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 phi1)
(neg.f64 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 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)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (pow phi2 2))
(*.f64 phi2 (neg.f64 phi2))
(- (pow phi1 2) (pow phi2 2))
(*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))
(- (pow phi1 2) (pow phi2 2))
(*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))
(- (pow phi1 2) (pow phi2 2))
(*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(pow phi1 2)
(*.f64 phi1 phi1)
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))
(* -1 (pow phi2 2))
(*.f64 phi2 (neg.f64 phi2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* -1 (pow phi2 2))
(*.f64 phi2 (neg.f64 phi2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (*.f64 R (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (*.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.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 (fma.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)))) (neg.f64 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 (fma.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 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 (* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1)))) (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.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))) lambda1)) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (+.f64 (/.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))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.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)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.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 (fma.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)))) (neg.f64 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 (fma.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)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.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 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2)))) (fma.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)))) (neg.f64 lambda2)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (*.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 (fma.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)))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.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)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))) (fma.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 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)) (fma.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 R (*.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) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (-.f64 R (/.f64 (*.f64 R phi2) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (-.f64 R (/.f64 (*.f64 R phi2) 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 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (fma.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)))) phi1) (*.f64 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)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (-.f64 (*.f64 R phi2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.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) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 (*.f64 R phi2) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R))
(* 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 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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 (*.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)))) (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(neg.f64 (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #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)))) phi2) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.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))))
(* 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)))))
(fma.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))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(fma.f64 phi1 (fma.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))))
(+ (* 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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.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))))
(* 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)))))
(fma.f64 #s(literal -1/2 binary64) (*.f64 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))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 R 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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (*.f64 #s(literal 1/48 binary64) R) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 R lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* 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))))
(* 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 (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))))
(fma.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))))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 R (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))))))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (*.f64 (*.f64 R phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 R (cos.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))))
(fma.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))))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 R phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (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))))))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (*.f64 (*.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal -1/8 binary64) R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (*.f64 #s(literal -1/2 binary64) R) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 R (cos.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))))
(* 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))))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.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))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64) (*.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.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)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.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.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))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.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.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
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/8 binary64) #s(literal 1 binary64))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(fma.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal 1/384 binary64) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(fma.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) #s(literal -1/8 binary64)) #s(literal 1 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 phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (neg.f64 lambda1) (*.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) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda1 (-.f64 (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.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))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.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 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda1 lambda1))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (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 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (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 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.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)))))
(neg.f64 (*.f64 lambda1 (-.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))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.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)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.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 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) 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 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.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)))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 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 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.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)) (neg.f64 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)))))
(neg.f64 (*.f64 lambda2 (-.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))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #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) (fma.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))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 phi2 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))) (fma.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))))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(*.f64 phi1 (fma.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))) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.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 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.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))) phi1) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (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))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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 (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 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)) (fma.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)))))))) (fma.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))))))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.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 (*.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))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.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))) phi2) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.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))) 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))))) phi2)) (neg.f64 phi2)) phi2))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(* (pow phi1 2) (pow phi2 2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))

rewrite362.0ms (2.8%)

Memory
-3.2MiB live, 422.3MiB allocated
Rules
4 814×lower-*.f32
4 788×lower-*.f64
3 806×lower-/.f32
3 798×lower-/.f64
3 604×lower-fma.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
052434
083353
1293307
22247307
08537271
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
23 → 490
Calls
Call 1
Inputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(neg.f64 phi1)
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
(neg.f64 phi2)
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
(/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 (/.f64 R phi2))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
(*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))
(exp.f64 (*.f64 (log.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(hypot.f64 phi1 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) phi1)
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (exp.f64 (log.f64 phi1)))
(hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi1)
(hypot.f64 (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 phi1)))
(hypot.f64 (exp.f64 (log.f64 phi1)) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(hypot.f64 (exp.f64 (log.f64 phi1)) (exp.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(sqrt.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 phi1 phi1 (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (-.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (fma.f64 phi1 phi1 (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 phi1 phi1 (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))))) (sqrt.f64 (-.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 phi1 phi1 (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))))))
(pow.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (-.f64 lambda1 lambda2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))
(*.f64 (sqrt.f64 (-.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))) (pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))))))
(*.f64 (pow.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)) (pow.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(+.f64 (*.f64 lambda1 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) lambda1 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(/.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (+.f64 lambda1 lambda2)))
(pow.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))
(*.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(+.f64 #s(literal 0 binary64) (neg.f64 phi1))
(-.f64 #s(literal 0 binary64) phi1)
(neg.f64 phi1)
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) (neg.f64 (+.f64 #s(literal 0 binary64) phi1)))
(*.f64 phi1 #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) phi1)
(+.f64 (*.f64 (neg.f64 phi2) R) (*.f64 (neg.f64 phi2) (neg.f64 (*.f64 R (/.f64 phi1 phi2)))))
(+.f64 (*.f64 R (neg.f64 phi2)) (*.f64 (neg.f64 (*.f64 R (/.f64 phi1 phi2))) (neg.f64 phi2)))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2)))))
(fma.f64 R (neg.f64 phi2) (*.f64 (neg.f64 (*.f64 R (/.f64 phi1 phi2))) (neg.f64 phi2)))
(fma.f64 (neg.f64 phi2) R (*.f64 (neg.f64 phi2) (neg.f64 (*.f64 R (/.f64 phi1 phi2)))))
(neg.f64 (*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2)))))
(/.f64 (*.f64 (neg.f64 phi2) (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)))
(/.f64 (*.f64 (neg.f64 phi2) (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)))) (fma.f64 R (/.f64 phi1 phi2) R))
(/.f64 (*.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 phi2)) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)))
(/.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 R (/.f64 phi1 phi2) R))
(/.f64 (neg.f64 (*.f64 (neg.f64 phi2) (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))))
(/.f64 (neg.f64 (*.f64 (neg.f64 phi2) (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 R (/.f64 phi1 phi2) R)))
(/.f64 (neg.f64 (*.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 phi2))) (neg.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))) (neg.f64 phi2))) (neg.f64 (fma.f64 R (/.f64 phi1 phi2) R)))
(*.f64 phi2 (neg.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (*.f64 R (/.f64 phi1 phi2))))
(*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) (neg.f64 phi2))
(*.f64 #s(literal -1 binary64) (*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2)))))
(*.f64 (*.f64 (-.f64 R (*.f64 R (/.f64 phi1 phi2))) #s(literal -1 binary64)) phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi2 (-.f64 R (*.f64 R (/.f64 phi1 phi2))))))
(+.f64 #s(literal 0 binary64) (neg.f64 phi2))
(-.f64 #s(literal 0 binary64) phi2)
(neg.f64 phi2)
(/.f64 (*.f64 phi2 phi2) (neg.f64 (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (*.f64 phi2 (neg.f64 phi2)) (+.f64 #s(literal 0 binary64) phi2))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(*.f64 phi2 #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) phi2)
(+.f64 R (neg.f64 (*.f64 R (/.f64 phi1 phi2))))
(+.f64 (neg.f64 (*.f64 R (/.f64 phi1 phi2))) R)
(-.f64 R (*.f64 R (/.f64 phi1 phi2)))
(-.f64 (/.f64 (*.f64 R (*.f64 R R)) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))) (/.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))))
(-.f64 (/.f64 (*.f64 R R) (fma.f64 R (/.f64 phi1 phi2) R)) (/.f64 (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)) (fma.f64 R (/.f64 phi1 phi2) R)))
(fma.f64 phi1 (neg.f64 (/.f64 R phi2)) R)
(fma.f64 (neg.f64 phi1) (/.f64 R phi2) R)
(fma.f64 (/.f64 R phi2) (neg.f64 phi1) R)
(fma.f64 #s(literal -1 binary64) (*.f64 R (/.f64 phi1 phi2)) R)
(fma.f64 (neg.f64 (/.f64 R phi2)) phi1 R)
(fma.f64 (*.f64 (neg.f64 phi1) R) (/.f64 #s(literal 1 binary64) phi2) R)
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)) (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 R (/.f64 phi1 phi2) R) (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)) (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 R (/.f64 phi1 phi2) R) (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))))))
(/.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)))
(/.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 R R (-.f64 (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)) (*.f64 R (neg.f64 (*.f64 R (/.f64 phi1 phi2)))))))
(/.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))) (fma.f64 R (/.f64 phi1 phi2) R))
(/.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))) (-.f64 R (neg.f64 (*.f64 R (/.f64 phi1 phi2)))))
(/.f64 (neg.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))))
(/.f64 (neg.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 R R (-.f64 (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)) (*.f64 R (neg.f64 (*.f64 R (/.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 R (/.f64 phi1 phi2) R)))
(/.f64 (neg.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)))) (neg.f64 (-.f64 R (neg.f64 (*.f64 R (/.f64 phi1 phi2))))))
(/.f64 (-.f64 (*.f64 (*.f64 R (*.f64 R R)) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))) (*.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))))
(/.f64 (-.f64 (*.f64 (*.f64 R R) (fma.f64 R (/.f64 phi1 phi2) R)) (*.f64 (fma.f64 R (/.f64 phi1 phi2) R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)))) (*.f64 (fma.f64 R (/.f64 phi1 phi2) R) (fma.f64 R (/.f64 phi1 phi2) R)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))))) (neg.f64 (neg.f64 (fma.f64 R (/.f64 phi1 phi2) R))))
(pow.f64 (/.f64 (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R)) (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 R (/.f64 phi1 phi2) R) (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(*.f64 (fma.f64 R (*.f64 R R) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 R (*.f64 R R))) (*.f64 phi2 (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 R (/.f64 phi1 phi2)) (fma.f64 R (/.f64 phi1 phi2) R) (*.f64 R R))))
(*.f64 (-.f64 (*.f64 R R) (/.f64 (*.f64 (*.f64 R phi1) (*.f64 R phi1)) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 R (/.f64 phi1 phi2) R)))
(exp.f64 (*.f64 (log.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal -1 binary64)))
(neg.f64 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))))
(neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 (*.f64 phi1 phi2) phi2)))
(neg.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2))))
(/.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 phi2))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 phi2 (*.f64 phi1 (*.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi2 (*.f64 phi1 (*.f64 phi1 phi2)))))
(/.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2)
(/.f64 (neg.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2)))) (*.f64 phi2 phi2))
(/.f64 (neg.f64 (*.f64 phi1 (*.f64 phi1 phi2))) (neg.f64 phi2))
(/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2)
(/.f64 (neg.f64 (neg.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2))))) (*.f64 phi2 (neg.f64 phi2)))
(/.f64 (neg.f64 (neg.f64 (*.f64 phi1 (*.f64 phi1 phi2)))) (neg.f64 (neg.f64 phi2)))
(/.f64 (neg.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2))) (neg.f64 phi2))
(pow.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 phi1 phi2) phi2) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 phi2 (*.f64 phi1 (*.f64 phi1 phi2))) #s(literal -1 binary64))
(*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))
(*.f64 phi1 (*.f64 (*.f64 phi1 (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))))
(*.f64 phi1 (/.f64 (*.f64 phi1 (*.f64 phi2 phi2)) (*.f64 phi2 phi2)))
(*.f64 phi2 (/.f64 (*.f64 phi1 phi1) phi2))
(*.f64 phi2 (*.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))))
(*.f64 (*.f64 phi1 phi1) #s(literal 1 binary64))
(*.f64 (*.f64 phi2 phi2) (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2)))
(*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))))
(*.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)))
(*.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)))
(*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) #s(literal 1 binary64))
(*.f64 (/.f64 phi1 phi2) (/.f64 (*.f64 phi1 (*.f64 phi2 phi2)) phi2))
(*.f64 (/.f64 phi1 phi2) (pow.f64 (/.f64 phi2 (*.f64 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64)))
(*.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))))
(*.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(*.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))))
(*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))))
(*.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (*.f64 phi2 phi2)))
(*.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2)
(*.f64 (*.f64 phi1 phi2) (*.f64 (*.f64 phi1 phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))))
(*.f64 (*.f64 phi1 phi2) (/.f64 (*.f64 phi1 phi2) (*.f64 phi2 phi2)))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2)))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi1 (*.f64 phi1 phi2)))
(*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2))
(*.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) phi2))
(*.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (/.f64 phi2 (*.f64 phi2 phi2)))
(*.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (*.f64 phi2 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))))
(*.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2) (/.f64 phi1 (neg.f64 phi2)))
(*.f64 (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2)) (*.f64 phi2 phi2))
(*.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(*.f64 (pow.f64 (/.f64 phi2 (*.f64 phi1 phi2)) #s(literal -1 binary64)) (pow.f64 (/.f64 phi2 (*.f64 phi1 phi2)) #s(literal -1 binary64)))
(+.f64 (neg.f64 phi2) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))))
(+.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (neg.f64 phi2))
(exp.f64 (neg.f64 (*.f64 (log.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) #s(literal -1 binary64))))
(-.f64 (neg.f64 phi2) (/.f64 (*.f64 phi1 phi2) phi2))
(-.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2)
(-.f64 #s(literal 0 binary64) (-.f64 phi2 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))))
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))) (/.f64 (*.f64 phi2 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))))
(-.f64 (/.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #s(literal 1 binary64)) (/.f64 phi2 #s(literal 1 binary64)))
(-.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) #s(literal 0 binary64)) phi2)
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) (neg.f64 phi2))
(fma.f64 phi2 #s(literal -1 binary64) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) (neg.f64 phi2))
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) phi2 (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) phi2 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2))
(neg.f64 (+.f64 phi2 (/.f64 (*.f64 phi1 phi2) phi2)))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) #s(literal 1 binary64))
(/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))))
(/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))) (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))) (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) #s(literal -1 binary64))
(/.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))))
(/.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2)))))
(/.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 #s(literal 1 binary64) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2))))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))) #s(literal 1 binary64))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (*.f64 #s(literal 1 binary64) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))))))
(/.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))) (neg.f64 (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))))
(/.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))) (neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2))))
(/.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (-.f64 (neg.f64 phi2) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))))
(/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (neg.f64 phi2) (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 phi1 phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) (neg.f64 phi2)))
(/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))
(/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 phi2 (neg.f64 phi1)))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))
(/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) (neg.f64 phi2) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 phi1 phi2))) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (neg.f64 phi2)))
(/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) phi2 (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) phi2))
(/.f64 (fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) phi2 (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 phi2 (neg.f64 phi1)))) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) phi2))
(/.f64 (fma.f64 (*.f64 phi1 phi2) (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi2) (*.f64 phi2 (neg.f64 phi2)))) (*.f64 (neg.f64 phi2) (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (fma.f64 (*.f64 phi1 phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 (neg.f64 phi2) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 (neg.f64 phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (fma.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (fma.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi1)) (+.f64 #s(literal 0 binary64) phi2) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi1)) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 phi2 phi1)) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2)) (*.f64 (+.f64 #s(literal 0 binary64) phi2) (/.f64 phi2 phi1)))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) phi2) (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 phi1 phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (neg.f64 phi2)) (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 phi2 (neg.f64 phi1)))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) (neg.f64 phi2)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 phi2 phi1)) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) phi2)) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (/.f64 phi2 phi1)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) phi2) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 phi1 phi2))) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) phi2))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))) (neg.f64 phi2)) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (*.f64 phi2 (neg.f64 phi1)))) (*.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (neg.f64 phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))) (*.f64 (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))) (*.f64 phi2 phi2))) (*.f64 (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) phi2)) #s(literal 1 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2))))) (neg.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))))) (neg.f64 (neg.f64 (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))))))
(/.f64 (neg.f64 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))))) (neg.f64 (-.f64 (neg.f64 phi2) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2)) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2)))))
(pow.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))) (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))) #s(literal -1 binary64))
(*.f64 phi2 (+.f64 #s(literal -1 binary64) (/.f64 phi1 (neg.f64 phi2))))
(*.f64 phi2 (+.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))
(*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) #s(literal 1 binary64))
(*.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))))
(*.f64 (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2))))))
(+.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (neg.f64 (neg.f64 phi2)))
(+.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (*.f64 #s(literal 1 binary64) phi2))
(+.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (*.f64 phi2 (neg.f64 phi2))))
(+.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(+.f64 (-.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #s(literal 0 binary64)) phi2)
(-.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (neg.f64 phi2))
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (/.f64 (*.f64 phi2 phi2) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) (neg.f64 (neg.f64 phi2)))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) (*.f64 #s(literal 1 binary64) phi2))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) (neg.f64 (neg.f64 phi2)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) (*.f64 #s(literal 1 binary64) phi2))
(fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) phi2 (neg.f64 (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) phi2 (*.f64 #s(literal 1 binary64) phi2))
(fma.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (*.f64 phi2 (neg.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 (neg.f64 phi2)))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 #s(literal 1 binary64) phi2))
(/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))))))
(/.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal 1 binary64)) (*.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(/.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal -1 binary64)) (*.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal 1 binary64)) (*.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal -1 binary64)) (*.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(/.f64 (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (*.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))) (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (neg.f64 (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2)))))
(/.f64 (*.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) #s(literal -1 binary64)) (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))
(/.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))
(/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))) (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 (neg.f64 phi2) (*.f64 phi2 (neg.f64 phi2)))) (*.f64 (neg.f64 phi2) (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 (neg.f64 phi2) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 (neg.f64 phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 (neg.f64 phi1)) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 (neg.f64 phi1)) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (*.f64 phi2 phi2))) (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))))) (neg.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))))) (neg.f64 (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))))) (neg.f64 (*.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (*.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2)) (*.f64 phi2 (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) #s(literal -1 binary64))) (neg.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))))) (neg.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)))))
(pow.f64 (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))) #s(literal -1 binary64))
(*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))
(*.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))))
(*.f64 #s(literal 1 binary64) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))))
(*.f64 (/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) (fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))))
(*.f64 (/.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))))
(+.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (neg.f64 phi2)))
(+.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(+.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))))
(-.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 phi2))
(-.f64 (/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 phi1 (*.f64 (*.f64 phi1 (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 phi1 (*.f64 (*.f64 phi1 (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 phi1 (/.f64 (*.f64 phi1 (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 phi1 (/.f64 (*.f64 phi1 (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))))
(fma.f64 phi2 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 phi2 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 phi2 (*.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 phi2 (*.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (neg.f64 phi2) phi2 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))))
(fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi2) (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi2) (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) #s(literal 1 binary64) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) #s(literal 1 binary64) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 phi2) (/.f64 (*.f64 phi1 (*.f64 phi2 phi2)) phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 phi2) (/.f64 (*.f64 phi1 (*.f64 phi2 phi2)) phi2) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 phi2) (pow.f64 (/.f64 phi2 (*.f64 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 phi2) (pow.f64 (/.f64 phi2 (*.f64 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (*.f64 phi1 phi1) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 #s(literal -1 binary64) (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))))
(fma.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (*.f64 phi2 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 phi2) (*.f64 (*.f64 phi1 phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 phi2) (*.f64 (*.f64 phi1 phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 phi2) (/.f64 (*.f64 phi1 phi2) (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 phi2) (/.f64 (*.f64 phi1 phi2) (*.f64 phi2 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2)))) #s(literal -1 binary64)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2)))) #s(literal -1 binary64)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi1 (*.f64 phi1 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi1 (*.f64 phi1 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) phi2) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (/.f64 phi2 (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (/.f64 phi2 (*.f64 phi2 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (*.f64 phi2 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (*.f64 phi2 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2) (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2) (/.f64 phi1 (neg.f64 phi2)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2)) (*.f64 phi2 phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (/.f64 phi1 phi2) (/.f64 phi1 phi2)) (*.f64 phi2 phi2) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(fma.f64 (pow.f64 (/.f64 phi2 (*.f64 phi1 phi2)) #s(literal -1 binary64)) (pow.f64 (/.f64 phi2 (*.f64 phi1 phi2)) #s(literal -1 binary64)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (pow.f64 (/.f64 phi2 (*.f64 phi1 phi2)) #s(literal -1 binary64)) (pow.f64 (/.f64 phi2 (*.f64 phi1 phi2)) #s(literal -1 binary64)) (*.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))))
(/.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(/.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (neg.f64 phi2))))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (-.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (neg.f64 phi2))))
(/.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal 1 binary64)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal 1 binary64)) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))
(/.f64 (neg.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (-.f64 (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (neg.f64 phi2)))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (neg.f64 (-.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 (neg.f64 phi2)))))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1))))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))) (*.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (*.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (*.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal 1 binary64))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) #s(literal 1 binary64))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(pow.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) #s(literal -1 binary64))
(*.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))))
(*.f64 (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2))))
(*.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))))
(*.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2)))
(*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda2))
(*.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) R)
(*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(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)))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(/.f64 phi1 (/.f64 phi2 R))
(/.f64 (neg.f64 phi1) (neg.f64 (/.f64 phi2 R)))
(/.f64 #s(literal 1 binary64) (/.f64 phi2 (*.f64 R phi1)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi2 (*.f64 R phi1))))
(/.f64 (*.f64 R phi1) phi2)
(/.f64 (neg.f64 (*.f64 R phi1)) (neg.f64 phi2))
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) (/.f64 phi2 R))
(/.f64 (*.f64 phi1 (neg.f64 R)) (neg.f64 phi2))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) (/.f64 phi2 R))
(/.f64 (*.f64 (neg.f64 R) phi1) (neg.f64 phi2))
(/.f64 (neg.f64 (neg.f64 (*.f64 R phi1))) (neg.f64 (neg.f64 phi2)))
(/.f64 (neg.f64 (*.f64 phi1 #s(literal 1 binary64))) (neg.f64 (/.f64 phi2 R)))
(/.f64 (neg.f64 (*.f64 phi1 (neg.f64 R))) (neg.f64 (neg.f64 phi2)))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) phi1)) (neg.f64 (/.f64 phi2 R)))
(/.f64 (neg.f64 (*.f64 (neg.f64 R) phi1)) (neg.f64 (neg.f64 phi2)))
(pow.f64 (/.f64 phi2 (*.f64 R phi1)) #s(literal -1 binary64))
(*.f64 R (/.f64 phi1 phi2))
(*.f64 phi1 (/.f64 R phi2))
(*.f64 (/.f64 R phi2) phi1)
(*.f64 (*.f64 R phi1) (/.f64 #s(literal 1 binary64) phi2))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64))))
(exp.f64 (*.f64 (log.f64 (*.f64 phi1 phi2)) #s(literal 2 binary64)))
(exp.f64 (fma.f64 #s(literal 2 binary64) (log.f64 phi1) (*.f64 #s(literal 2 binary64) (log.f64 phi2))))
(exp.f64 (fma.f64 #s(literal 2 binary64) (log.f64 phi2) (log.f64 (*.f64 phi1 phi1))))
(/.f64 (*.f64 phi2 phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(/.f64 (*.f64 phi2 (neg.f64 phi2)) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 phi2)) (*.f64 phi2 phi2))
(/.f64 (*.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (*.f64 phi2 phi2)) phi2)
(/.f64 (neg.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 phi2))) (*.f64 phi2 (neg.f64 phi2)))
(/.f64 (neg.f64 (*.f64 (*.f64 (neg.f64 phi1) (*.f64 phi1 (*.f64 phi2 phi2))) (*.f64 phi2 phi2))) (*.f64 phi2 phi2))
(/.f64 (neg.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi2)) (*.f64 phi2 phi2))) (neg.f64 phi2))
(pow.f64 (neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2)) #s(literal 2 binary64))
(pow.f64 (*.f64 phi1 phi2) #s(literal 2 binary64))
(pow.f64 (*.f64 phi1 (neg.f64 phi2)) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2) #s(literal 2 binary64))
(pow.f64 (*.f64 phi2 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))) #s(literal 2 binary64))
(pow.f64 (*.f64 (neg.f64 phi2) phi1) #s(literal 2 binary64))
(*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2)))
(*.f64 phi1 (*.f64 phi2 (*.f64 phi1 phi2)))
(*.f64 phi2 (*.f64 phi1 (*.f64 phi1 phi2)))
(*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(*.f64 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))))
(*.f64 (*.f64 phi1 (*.f64 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64))
(*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) (*.f64 phi2 phi2))
(*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 (*.f64 phi2 phi2)))
(*.f64 (neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2)) (neg.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2)))
(*.f64 (*.f64 phi1 phi2) (*.f64 phi1 phi2))
(*.f64 (*.f64 phi1 (*.f64 phi2 phi2)) phi1)
(*.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2)
(*.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2) (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) phi2))
(*.f64 (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)) (*.f64 (/.f64 (*.f64 phi1 phi2) phi2) (neg.f64 phi2)))
(*.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64))) phi2) phi2)
(*.f64 (*.f64 (*.f64 phi1 phi2) phi1) phi2)

eval204.0ms (1.6%)

Memory
45.8MiB live, 377.3MiB allocated
Compiler

Compiled 43 852 to 2 862 computations (93.5% saved)

prune524.0ms (4%)

Memory
3.3MiB live, 779.8MiB allocated
Pruning

66 alts after pruning (61 fresh and 5 done)

PrunedKeptTotal
New1 300261 326
Fresh43539
Picked145
Done011
Total1 305661 371
Accuracy
98.9%
Counts
1 371 → 66
Alt Table
Click to see full alt table
StatusAccuracyProgram
60.0%
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
27.6%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
24.7%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
▶50.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
50.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
45.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
47.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
54.2%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
46.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (pow.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)) #s(literal 2 binary64))))
▶67.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
✓70.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
65.2%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
18.2%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
25.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
10.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
16.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
35.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
32.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
34.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
▶36.1%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
16.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
23.1%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
17.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
14.6%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
15.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
31.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
15.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.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))))) (neg.f64 lambda2))))
▶10.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
9.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
23.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
16.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
12.6%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
19.1%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
18.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
✓30.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
45.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (exp.f64 (*.f64 (log.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64)))))
54.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
▶59.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
22.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
19.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
37.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
28.9%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
11.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
19.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
19.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
29.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
10.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
39.8%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
58.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
29.1%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- 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))))) R) lambda2))
✓29.0%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
28.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda2))
28.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
29.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
13.6%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
✓3.3%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
54.7%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
58.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
✓34.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
19.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1)))))
12.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
19.5%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
57.3%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
Compiler

Compiled 2 907 to 1 690 computations (41.9% saved)

simplify191.0ms (1.5%)

Memory
-44.9MiB live, 213.7MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
cost-diff0
(*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
cost-diff1024
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
cost-diff1024
(*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))
cost-diff1152
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2)))
cost-diff1408
(*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
cost-diff1088
(/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1))
cost-diff1216
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)
cost-diff0
(-.f64 phi2 phi1)
cost-diff0
#s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
cost-diff0
#s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))
cost-diff0
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))
cost-diff0
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
cost-diff4928
(hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))
Rules
5 610×lower-fma.f32
5 604×lower-fma.f64
2 960×lower-*.f32
2 938×lower-*.f64
1 576×unsub-neg
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
062693
095696
1169663
2387654
31611579
45340557
08266397
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))
(hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))
phi2
#s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))
#s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))
(-.f64 phi2 phi1)
phi2
phi1
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)
(/.f64 #s(literal -1 binary64) phi2)
#s(literal -1 binary64)
phi2
(/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1))
(/.f64 #s(literal 1 binary64) phi1)
#s(literal 1 binary64)
phi1
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
(*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2)))
(*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2)))
(*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))
phi2
(/.f64 phi1 (neg.f64 phi2))
phi1
(neg.f64 phi2)
(*.f64 phi2 (neg.f64 phi2))
(/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))
#s(literal 1 binary64)
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(neg.f64 (/.f64 phi1 phi2))
(/.f64 phi1 phi2)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))
(*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 #s(literal 1/2 binary64) phi2)
#s(literal 1/2 binary64)
phi2
(neg.f64 lambda2)
lambda2
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))
(hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))
(sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
phi2
#s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))
#s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))
(-.f64 phi2 phi1)
phi2
phi1
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1))
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)
(-.f64 phi2 phi1)
(/.f64 #s(literal -1 binary64) phi2)
#s(literal -1 binary64)
phi2
(/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1))
(*.f64 phi2 phi1)
(/.f64 #s(literal 1 binary64) phi1)
#s(literal 1 binary64)
phi1
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 phi2 phi1) #s(literal 1 binary64)))
(*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(*.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2)))
(*.f64 (-.f64 phi1 phi2) (+.f64 phi2 phi1))
(*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2)))
(*.f64 (/.f64 phi1 phi2) phi1)
(*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))
(neg.f64 phi1)
phi2
(/.f64 phi1 (neg.f64 phi2))
(/.f64 (neg.f64 phi1) phi2)
phi1
(neg.f64 phi2)
(*.f64 phi2 (neg.f64 phi2))
(/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))
(/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))
#s(literal 1 binary64)
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(-.f64 (neg.f64 phi2) phi1)
(neg.f64 (/.f64 phi1 phi2))
(/.f64 (neg.f64 phi1) phi2)
(/.f64 phi1 phi2)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 lambda2))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 lambda2)))
(*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 lambda2))
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
phi2
(neg.f64 lambda2)
lambda2

localize250.0ms (1.9%)

Memory
-14.9MiB live, 380.9MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.20703125
(*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
accuracy15.31909023040973
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
accuracy30.76338477095873
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
accuracy57.892643008360395
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))
accuracy6.61906667869833
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
accuracy13.300209975232313
(*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))
accuracy29.96185217581845
(*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
accuracy30.07697538896571
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
accuracy0.203125
(/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1))
accuracy11.388659374071748
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)
accuracy30.07697538896571
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))
accuracy0
(-.f64 phi2 phi1)
accuracy0
#s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
accuracy30.07697538896571
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))
accuracy0
(-.f64 lambda1 lambda2)
accuracy0.04296875
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
accuracy23.23225602489448
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))
accuracy29.86059817749907
#s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))
Samples
133.0ms178×1valid
31.0ms77×0valid
1.0ms1×2valid
Compiler

Compiled 525 to 47 computations (91% saved)

Precisions
Click to see histograms. Total time spent on operations: 113.0ms
ival-mult: 30.0ms (26.5% of total)
ival-cos: 21.0ms (18.6% of total)
ival-div: 17.0ms (15% of total)
adjust: 12.0ms (10.6% of total)
ival-hypot: 10.0ms (8.8% of total)
ival-sub: 10.0ms (8.8% of total)
ival-add: 9.0ms (8% of total)
ival-neg: 3.0ms (2.7% of total)
exact: 1.0ms (0.9% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

series111.0ms (0.9%)

Memory
-1.7MiB live, 122.5MiB allocated
Counts
23 → 852
Calls
Call 1
Inputs
#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())
#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())
#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())
#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())
#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())
#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())
#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())
#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())
#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())
#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())
#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())
#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())
#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())
#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())
Outputs
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2) (taylor 0 phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))) (taylor -inf phi2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 phi2)))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 phi2))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))) (taylor inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (patch (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2) (taylor 0 phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (taylor -inf phi2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))) (taylor -inf lambda1) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 phi2))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2)))) (taylor 0 lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))) (taylor inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (patch #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor -inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor 0 phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) (patch #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (- phi2 phi1) (taylor 0 phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (- phi2 phi1) (taylor 0 phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (- phi2 phi1) (taylor 0 phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor -inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor 0 phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (-.f64 phi2 phi1) (patch (-.f64 phi2 phi1) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor -inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor 0 phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) (patch (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi2) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor 0 phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 phi2) (taylor -inf phi1) (#s(alt (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) (patch (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor -inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (/ phi1 phi2) 1))) (taylor -inf phi2) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor 0 phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ phi2 (* -1 phi1)) (taylor 0 phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (/ phi2 phi1) 1)) (taylor inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) (patch (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow phi2 2)) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow phi2 2)) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1)) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (pow phi2 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (pow phi2 2)) (pow phi1 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2))))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (patch (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi2) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (patch (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 phi1) (* -1 phi2)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 phi1) (* -1 phi2)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 phi1) (* -1 phi2)) (taylor 0 phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* -1 (/ phi1 phi2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* -1 (/ phi1 phi2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* -1 (/ phi1 phi2)) 1)) (taylor inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (/ phi1 phi2)))) (taylor -inf phi2) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (* -1 phi1) phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (* -1 phi1) phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (- (* -1 phi1) phi2) (taylor 0 phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (* -1 (/ phi2 phi1)) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (* -1 (/ phi2 phi1)) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (- (* -1 (/ phi2 phi1)) 1)) (taylor inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (/ phi2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) (patch (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2)))) (taylor -inf R) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))) (taylor inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R phi1) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))) (taylor inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi1)) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1))))) (taylor -inf phi1) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* R phi2) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))) (taylor inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* R phi2)) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2))))) (taylor -inf phi2) (#s(alt (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) (patch (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi2)))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2))))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 phi1)))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor 0 lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) (patch (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi2)) (taylor 0 phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2)))))) (taylor 0 phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1)))))) (taylor 0 phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (+ phi1 phi2))) (taylor inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (cos (* 1/2 (- phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (patch (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 lambda1 lambda2) (patch (-.f64 lambda1 lambda2) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))) (taylor -inf lambda1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3)))))))))) (taylor 0 lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))) (taylor inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))))) (taylor 0 phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi1) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1))))) (taylor -inf phi1) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))))) (taylor 0 phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt phi2 (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (* -1 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (taylor inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2))))) (taylor -inf phi2) (#s(alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) (patch #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi2) (taylor 0 phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 phi1) (* 1/2 phi2)) (taylor 0 phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi2) (taylor inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2)))) (taylor inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi2) (taylor -inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))) (taylor -inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))) (taylor -inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2))) (taylor -inf phi2) (#s(alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) (patch #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)) #<representation binary64>) () ())) ())
Calls

213 calls:

TimeVariablePointExpression
0.0ms
phi1
@0
(* (+ (* (* (* phi2 (/ phi1 (neg phi2))) (/ phi1 (neg phi2))) phi2) (* phi2 (neg phi2))) (/ 1 (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2))))
0.0ms
phi2
@0
(* (+ (* (* (* phi2 (/ phi1 (neg phi2))) (/ phi1 (neg phi2))) phi2) (* phi2 (neg phi2))) (/ 1 (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2))))
0.0ms
phi1
@inf
(* phi2 (/ phi1 (neg phi2)))
0.0ms
phi1
@inf
(* (+ (* (* (* phi2 (/ phi1 (neg phi2))) (/ phi1 (neg phi2))) phi2) (* phi2 (neg phi2))) (/ 1 (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2))))
0.0ms
phi1
@inf
(/ phi2 (/ 1 phi1))

simplify490.0ms (3.8%)

Memory
27.2MiB live, 601.8MiB allocated
Algorithm
1×egg-herbie
Rules
10 090×lower-fma.f64
10 090×lower-fma.f32
7 312×lower-*.f64
7 312×lower-*.f32
5 484×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0103130251
1341028237
0808225970
Stop Event
1×iter limit
1×node limit
Counts
852 → 826
Calls
Call 1
Inputs
(- lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(* 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)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* 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 phi1)
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 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)))))
(* -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)))))
(* -1 phi1)
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 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)))))
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* phi1 phi2)
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (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 phi1)
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 phi1))
(+ phi2 (* -1 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)))))
(pow phi1 2)
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(* -1 (pow phi2 2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* -1 (pow phi2 2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(* -1 (pow phi2 2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 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)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(+ (* -1 phi1) (* -1 phi2))
(+ (* -1 phi1) (* -1 phi2))
(+ (* -1 phi1) (* -1 phi2))
(* -1 phi2)
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(* -1 phi2)
(- (* -1 phi1) phi2)
(- (* -1 phi1) phi2)
(- (* -1 phi1) phi2)
(* -1 phi1)
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* 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 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)))))
(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/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)))
Outputs
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi2 phi2) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/1440 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (-.f64 lambda1 lambda2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1 binary64)) (neg.f64 phi2))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(*.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64))) (pow.f64 phi2 #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1 binary64))) (neg.f64 phi2))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(neg.f64 (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))) phi2))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (*.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 lambda1 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (*.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)) #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (*.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda2 lambda2) (*.f64 phi2 phi2)))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(*.f64 lambda1 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 lambda1 lambda1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(*.f64 lambda1 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 phi2 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 phi2 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 lambda1 lambda1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2)))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2)) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (*.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1) (*.f64 phi2 phi2)))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (cos (* 1/2 phi2)))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(*.f64 lambda2 (fma.f64 lambda1 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 lambda2 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(*.f64 lambda2 (fma.f64 lambda1 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 phi2 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (/.f64 (*.f64 phi2 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 lambda2 lambda2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(*.f64 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))))) (*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 R (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (*.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (-.f64 R (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.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 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2)) (-.f64 lambda1 lambda2) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal 1/384 binary64) (*.f64 phi2 phi2) #s(literal -1/8 binary64))) (-.f64 lambda1 lambda2))
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(fma.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 lambda1 lambda2) (fma.f64 #s(literal -1/46080 binary64) (*.f64 phi2 phi2) #s(literal 1/384 binary64))) (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(*.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 phi2)))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(*.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(*.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))))) (*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 R (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (*.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (-.f64 R (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.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 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 phi1)
(neg.f64 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
phi2
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
phi2
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 phi1)
(neg.f64 phi1)
(- phi2 phi1)
(-.f64 phi2 phi1)
(- phi2 phi1)
(-.f64 phi2 phi1)
(- phi2 phi1)
(-.f64 phi2 phi1)
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
phi2
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
phi2
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 phi1)
(neg.f64 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
phi2
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
phi2
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* phi1 phi2)
(*.f64 phi2 phi1)
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))))) (*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 R (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (*.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (-.f64 R (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.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 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 phi1)
(neg.f64 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
phi2
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(* -1 (* phi2 (- (/ phi1 phi2) 1)))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
phi2
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(+ phi2 (* -1 phi1))
(-.f64 phi2 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* phi1 (- (/ phi2 phi1) 1))
(fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(pow phi1 2)
(*.f64 phi1 phi1)
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 phi1))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 phi1))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 phi1))
(* -1 (pow phi2 2))
(*.f64 phi2 (neg.f64 phi2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* -1 (pow phi2 2))
(*.f64 phi2 (neg.f64 phi2))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* (pow phi2 2) (- (/ (pow phi1 2) (pow phi2 2)) 1))
(*.f64 (*.f64 phi2 phi2) (+.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) #s(literal -1 binary64)))
(* -1 (pow phi2 2))
(*.f64 phi2 (neg.f64 phi2))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 phi1))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 phi1))
(+ (* -1 (pow phi2 2)) (pow phi1 2))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 phi1))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (pow phi2 2) (pow phi1 2)))))
(*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))))
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(+ (* -1 phi1) (* -1 phi2))
(-.f64 (neg.f64 phi2) phi1)
(+ (* -1 phi1) (* -1 phi2))
(-.f64 (neg.f64 phi2) phi1)
(+ (* -1 phi1) (* -1 phi2))
(-.f64 (neg.f64 phi2) phi1)
(* -1 phi2)
(neg.f64 phi2)
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) (neg.f64 phi2))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) (neg.f64 phi2))
(* phi2 (- (* -1 (/ phi1 phi2)) 1))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) (neg.f64 phi2))
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(* -1 (* phi2 (+ 1 (/ phi1 phi2))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(* -1 phi2)
(neg.f64 phi2)
(- (* -1 phi1) phi2)
(-.f64 (neg.f64 phi2) phi1)
(- (* -1 phi1) phi2)
(-.f64 (neg.f64 phi2) phi1)
(- (* -1 phi1) phi2)
(-.f64 (neg.f64 phi2) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) (neg.f64 phi1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) (neg.f64 phi1))
(* phi1 (- (* -1 (/ phi2 phi1)) 1))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) (neg.f64 phi1))
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 phi1) phi1))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 phi1) phi1))
(* -1 (* phi1 (+ 1 (/ phi2 phi1))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 phi1) phi1))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda1) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda1 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda2 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 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)))))))
(neg.f64 (*.f64 lambda1 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -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 (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (*.f64 (*.f64 R (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 R lambda2) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 (*.f64 R lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))) (*.f64 R (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 lambda2 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (*.f64 lambda1 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(*.f64 (fma.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 R (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (*.f64 lambda2 (-.f64 (*.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 R phi1) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))))) (*.f64 R (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 (*.f64 R phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 R (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(*.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (*.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (-.f64 (*.f64 phi2 R) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi2 R) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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 (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.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)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 R) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 R (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))) (*.f64 R (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* 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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (-.f64 R (/.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 (fma.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (-.f64 R (/.f64 (*.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (*.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 R (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (*.f64 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)))))
(neg.f64 (*.f64 phi2 (-.f64 R (/.f64 (-.f64 (*.f64 R phi1) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 R (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.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 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda2 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(-.f64 (*.f64 phi1 (fma.f64 phi1 (fma.f64 (*.f64 (*.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/48 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 lambda2 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 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)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.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))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (*.f64 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.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))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal -1/8 binary64) (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.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(* -1 lambda2)
(neg.f64 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(fma.f64 lambda1 (/.f64 lambda2 (neg.f64 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(fma.f64 lambda1 (/.f64 lambda2 (neg.f64 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(fma.f64 lambda1 (/.f64 lambda2 (neg.f64 lambda1)) lambda1)
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64)) (neg.f64 lambda1))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(* -1 lambda2)
(neg.f64 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(fma.f64 lambda2 (/.f64 lambda1 lambda2) (neg.f64 lambda2))
(* lambda2 (- (/ lambda1 lambda2) 1))
(fma.f64 lambda2 (/.f64 lambda1 lambda2) (neg.f64 lambda2))
(* lambda2 (- (/ lambda1 lambda2) 1))
(fma.f64 lambda2 (/.f64 lambda1 lambda2) (neg.f64 lambda2))
(* -1 lambda2)
(neg.f64 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) (neg.f64 lambda2))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(*.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(*.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.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 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (*.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (*.f64 (*.f64 (*.f64 lambda2 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (*.f64 lambda1 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* 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 (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (*.f64 lambda2 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* -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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) 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)))))
(neg.f64 (*.f64 lambda2 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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 phi2 phi1)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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)))) (fma.f64 phi1 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))) (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64)))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (fma.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64))) (fma.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)))))) (fma.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)))))))))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 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)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (+.f64 (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))) (*.f64 phi2 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.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)))) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -1/4 binary64) (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))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 phi2 phi2))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 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)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 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 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))

rewrite291.0ms (2.2%)

Memory
-4.6MiB live, 397.7MiB allocated
Rules
6 850×lower-fma.f32
6 844×lower-fma.f64
3 216×lower-*.f32
3 196×lower-*.f64
2 850×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
061563
093429
1326407
22393357
09024312
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
23 → 774
Calls
Call 1
Inputs
(hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))
#s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))
#s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))
(-.f64 phi2 phi1)
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)
(/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2))
(*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))
(fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2)))
(*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))
(fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))
(*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
(-.f64 lambda1 lambda2)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2)))))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
Outputs
(exp.f64 (*.f64 (log.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64)))
(hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))
(hypot.f64 phi2 (exp.f64 (log.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(hypot.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) phi2)
(hypot.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (neg.f64 phi2))
(hypot.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (exp.f64 (log.f64 phi2)))
(hypot.f64 (neg.f64 phi2) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))
(hypot.f64 (neg.f64 phi2) (exp.f64 (log.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(hypot.f64 (exp.f64 (log.f64 phi2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))
(hypot.f64 (exp.f64 (log.f64 phi2)) (exp.f64 (log.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) phi2)
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (neg.f64 phi2))
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (exp.f64 (log.f64 phi2)))
(sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))) (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (*.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))) (sqrt.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 (*.f64 phi2 phi2) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))))
(/.f64 (sqrt.f64 (*.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)))))) (sqrt.f64 (neg.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))))
(/.f64 (sqrt.f64 (neg.f64 (*.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)))) (sqrt.f64 (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)))))) (neg.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))))) (neg.f64 (sqrt.f64 (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))))
(pow.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 (*.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))))
(*.f64 (sqrt.f64 (*.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))))
(*.f64 (pow.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))
(exp.f64 (*.f64 (log.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
#s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))
(pow.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))
#s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))
(+.f64 phi2 (neg.f64 phi1))
(+.f64 phi1 (neg.f64 phi2))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (neg.f64 phi1) phi2)
(+.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)))
(+.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))))
(+.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(+.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(+.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2)
(exp.f64 (*.f64 (log.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(-.f64 phi2 phi1)
(-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))
(-.f64 phi1 phi2)
(-.f64 (neg.f64 phi2) (neg.f64 phi1))
(-.f64 (neg.f64 phi1) (neg.f64 phi2))
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(-.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(-.f64 (+.f64 phi1 #s(literal 0 binary64)) phi2)
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (+.f64 phi2 phi1)) (/.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(-.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 (neg.f64 phi1))) (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 (neg.f64 phi1))))
(fma.f64 phi2 #s(literal -1 binary64) phi1)
(fma.f64 phi2 #s(literal 1 binary64) (neg.f64 phi1))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(fma.f64 phi1 #s(literal -1 binary64) phi2)
(fma.f64 phi1 #s(literal 1 binary64) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) phi2 phi1)
(fma.f64 #s(literal -1 binary64) phi1 phi2)
(fma.f64 #s(literal -1 binary64) (neg.f64 phi2) (neg.f64 phi1))
(fma.f64 #s(literal -1 binary64) (neg.f64 phi1) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi1) phi2) phi2)
(fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi2 phi1)) phi2)
(fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 phi1) #s(literal 1 binary64)) (neg.f64 phi2))
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)
(fma.f64 #s(literal 1 binary64) phi2 (neg.f64 phi1))
(fma.f64 #s(literal 1 binary64) phi1 (neg.f64 phi2))
(fma.f64 #s(literal 1 binary64) (neg.f64 phi1) phi2)
(fma.f64 (*.f64 phi2 phi1) (/.f64 #s(literal -1 binary64) phi2) phi2)
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) phi2 phi2)
(fma.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(fma.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)))
(fma.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))))
(fma.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(fma.f64 (*.f64 phi2 (neg.f64 phi1)) (/.f64 #s(literal 1 binary64) phi2) phi2)
(fma.f64 (/.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64)) (*.f64 phi2 phi1) phi2)
(fma.f64 (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (neg.f64 phi2))
(/.f64 (-.f64 phi2 phi1) #s(literal -1 binary64))
(/.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (-.f64 phi2 (neg.f64 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi1)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (*.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2)))))
(/.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64)) (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64)) (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64)) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64)) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1)))
(/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (neg.f64 (-.f64 phi2 (neg.f64 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi1))))))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -1 binary64)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (neg.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -1 binary64))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (+.f64 phi2 phi1))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (*.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (*.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) (-.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (fma.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (*.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (fma.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (+.f64 phi1 #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (+.f64 phi1 #s(literal 0 binary64)) (+.f64 phi1 #s(literal 0 binary64)) (fma.f64 phi2 phi2 (*.f64 (+.f64 phi1 #s(literal 0 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (fma.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (fma.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (*.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))))))
(pow.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal -1 binary64))
(*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1 binary64) (-.f64 phi2 phi1))
(*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))
(*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(*.f64 (+.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal 1 binary64)) phi2)
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (-.f64 phi2 phi1))
(*.f64 (pow.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64)) (pow.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal 1 binary64)) (-.f64 phi2 phi1))
(+.f64 phi2 (neg.f64 phi1))
(+.f64 phi1 (neg.f64 phi2))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (neg.f64 phi1) phi2)
(+.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)))
(+.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))))
(+.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(+.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(+.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2)
(exp.f64 (*.f64 (log.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(-.f64 phi2 phi1)
(-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))
(-.f64 phi1 phi2)
(-.f64 (neg.f64 phi2) (neg.f64 phi1))
(-.f64 (neg.f64 phi1) (neg.f64 phi2))
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(-.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(-.f64 (+.f64 phi1 #s(literal 0 binary64)) phi2)
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (+.f64 phi2 phi1)) (/.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(-.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 (neg.f64 phi1))) (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 (neg.f64 phi1))))
(fma.f64 phi2 #s(literal -1 binary64) phi1)
(fma.f64 phi2 #s(literal 1 binary64) (neg.f64 phi1))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(fma.f64 phi1 #s(literal -1 binary64) phi2)
(fma.f64 phi1 #s(literal 1 binary64) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) phi2 phi1)
(fma.f64 #s(literal -1 binary64) phi1 phi2)
(fma.f64 #s(literal -1 binary64) (neg.f64 phi2) (neg.f64 phi1))
(fma.f64 #s(literal -1 binary64) (neg.f64 phi1) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi1) phi2) phi2)
(fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi2 phi1)) phi2)
(fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 phi1) #s(literal 1 binary64)) (neg.f64 phi2))
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)
(fma.f64 #s(literal 1 binary64) phi2 (neg.f64 phi1))
(fma.f64 #s(literal 1 binary64) phi1 (neg.f64 phi2))
(fma.f64 #s(literal 1 binary64) (neg.f64 phi1) phi2)
(fma.f64 (*.f64 phi2 phi1) (/.f64 #s(literal -1 binary64) phi2) phi2)
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) phi2 phi2)
(fma.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(fma.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)))
(fma.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))))
(fma.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(fma.f64 (*.f64 phi2 (neg.f64 phi1)) (/.f64 #s(literal 1 binary64) phi2) phi2)
(fma.f64 (/.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64)) (*.f64 phi2 phi1) phi2)
(fma.f64 (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (neg.f64 phi2))
(/.f64 (-.f64 phi2 phi1) #s(literal -1 binary64))
(/.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (-.f64 phi2 (neg.f64 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi1)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (*.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2)))))
(/.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64)) (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64)) (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64)) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64)) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1)))
(/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (neg.f64 (-.f64 phi2 (neg.f64 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi1))))))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -1 binary64)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (neg.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -1 binary64))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (+.f64 phi2 phi1))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (*.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (*.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) (-.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (fma.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (*.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (fma.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (+.f64 phi1 #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (+.f64 phi1 #s(literal 0 binary64)) (+.f64 phi1 #s(literal 0 binary64)) (fma.f64 phi2 phi2 (*.f64 (+.f64 phi1 #s(literal 0 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (fma.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (fma.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (*.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))))))
(pow.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal -1 binary64))
(*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1 binary64) (-.f64 phi2 phi1))
(*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))
(*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(*.f64 (+.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal 1 binary64)) phi2)
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (-.f64 phi2 phi1))
(*.f64 (pow.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64)) (pow.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal 1 binary64)) (-.f64 phi2 phi1))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))) #s(literal -1 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 (neg.f64 phi1)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) phi1)) #s(literal 1 binary64)) (/.f64 (*.f64 phi2 phi1) #s(literal -1 binary64)))
(neg.f64 (*.f64 phi2 (neg.f64 phi1)))
(neg.f64 (*.f64 (/.f64 (*.f64 phi2 phi1) phi2) (neg.f64 phi2)))
(/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)))))
(/.f64 (*.f64 phi2 phi1) #s(literal 1 binary64))
(/.f64 (neg.f64 phi2) (/.f64 #s(literal -1 binary64) phi1))
(/.f64 (*.f64 phi2 (neg.f64 phi1)) #s(literal -1 binary64))
(/.f64 (*.f64 (*.f64 phi2 phi1) (neg.f64 phi2)) (neg.f64 phi2))
(/.f64 (neg.f64 (*.f64 (*.f64 phi2 phi1) (neg.f64 phi2))) phi2)
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) phi1)) #s(literal 3 binary64)) (*.f64 (*.f64 phi2 phi1) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)))) (fma.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) phi1)) (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) phi1)) (fma.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1) (*.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) phi1)) (*.f64 phi2 (neg.f64 phi1))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 phi2 phi1)
(*.f64 phi2 (*.f64 (/.f64 phi1 (neg.f64 phi2)) (neg.f64 phi2)))
(*.f64 phi1 phi2)
(*.f64 #s(literal -1 binary64) (*.f64 phi2 (neg.f64 phi1)))
(*.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))
(*.f64 (neg.f64 phi2) (neg.f64 phi1))
(*.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(*.f64 (neg.f64 phi1) (neg.f64 phi2))
(*.f64 (*.f64 (neg.f64 phi1) #s(literal -1 binary64)) phi2)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1)))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1)) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1))
(+.f64 phi2 (neg.f64 phi1))
(+.f64 phi1 (neg.f64 phi2))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (neg.f64 phi1) phi2)
(+.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)))
(+.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))))
(+.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(+.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(+.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2)
(exp.f64 (*.f64 (log.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(-.f64 phi2 phi1)
(-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))
(-.f64 phi1 phi2)
(-.f64 (neg.f64 phi2) (neg.f64 phi1))
(-.f64 (neg.f64 phi1) (neg.f64 phi2))
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(-.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(-.f64 (+.f64 phi1 #s(literal 0 binary64)) phi2)
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (+.f64 phi2 phi1)) (/.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(-.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 (neg.f64 phi1))) (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 (neg.f64 phi1))))
(fma.f64 phi2 #s(literal -1 binary64) phi1)
(fma.f64 phi2 #s(literal 1 binary64) (neg.f64 phi1))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(fma.f64 phi1 #s(literal -1 binary64) phi2)
(fma.f64 phi1 #s(literal 1 binary64) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) phi2 phi1)
(fma.f64 #s(literal -1 binary64) phi1 phi2)
(fma.f64 #s(literal -1 binary64) (neg.f64 phi2) (neg.f64 phi1))
(fma.f64 #s(literal -1 binary64) (neg.f64 phi1) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi1) phi2) phi2)
(fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi2 phi1)) phi2)
(fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 phi1) #s(literal 1 binary64)) (neg.f64 phi2))
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)
(fma.f64 #s(literal 1 binary64) phi2 (neg.f64 phi1))
(fma.f64 #s(literal 1 binary64) phi1 (neg.f64 phi2))
(fma.f64 #s(literal 1 binary64) (neg.f64 phi1) phi2)
(fma.f64 (*.f64 phi2 phi1) (/.f64 #s(literal -1 binary64) phi2) phi2)
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) phi2)
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) phi2 phi2)
(fma.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(fma.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)))
(fma.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))))
(fma.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))))
(fma.f64 (*.f64 phi2 (neg.f64 phi1)) (/.f64 #s(literal 1 binary64) phi2) phi2)
(fma.f64 (/.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64)) (*.f64 phi2 phi1) phi2)
(fma.f64 (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (neg.f64 phi2))
(/.f64 (-.f64 phi2 phi1) #s(literal -1 binary64))
(/.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (-.f64 phi2 (neg.f64 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi1)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (*.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2)))))
(/.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64)) (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64)) (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64)) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64)) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1)))
(/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (neg.f64 (-.f64 phi2 (neg.f64 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi1))))))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -1 binary64)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (neg.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal -1 binary64))) (neg.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (*.f64 (+.f64 phi2 phi1) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -1 binary64))) (+.f64 phi2 phi1))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (+.f64 phi2 phi1))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (-.f64 (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2))) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi1 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (*.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (-.f64 (*.f64 (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))) (*.f64 (*.f64 (*.f64 phi1 phi1) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) (-.f64 (*.f64 phi2 phi2) (*.f64 (-.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (fma.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (*.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (fma.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (+.f64 phi1 #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (+.f64 phi1 #s(literal 0 binary64)) (+.f64 phi1 #s(literal 0 binary64)) (fma.f64 phi2 phi2 (*.f64 (+.f64 phi1 #s(literal 0 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (fma.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (fma.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (*.f64 (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))) (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))))))
(pow.f64 (-.f64 phi2 phi1) #s(literal 1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal -1 binary64))
(*.f64 phi2 (-.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1 binary64) (-.f64 phi2 phi1))
(*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))
(*.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))
(*.f64 (+.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal 1 binary64)) phi2)
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (-.f64 phi2 phi1))
(*.f64 (pow.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64)) (pow.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal 1 binary64)) (-.f64 phi2 phi1))
(+.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1))
(+.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi1)))
(+.f64 (*.f64 phi2 phi2) (neg.f64 (*.f64 phi1 phi1)))
(+.f64 (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi2)))
(-.f64 (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(-.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1))))) (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1))))))
(-.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi2 phi2 (*.f64 phi1 phi1))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 phi2 (*.f64 phi1 phi1))))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1))))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1))))))
(-.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1))))
(fma.f64 phi2 phi2 (*.f64 phi1 (neg.f64 phi1)))
(fma.f64 phi2 phi2 (neg.f64 (*.f64 phi1 phi1)))
(fma.f64 phi2 (neg.f64 phi2) (*.f64 phi1 phi1))
(fma.f64 phi2 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 phi1 phi1 (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 #s(literal -1 binary64) (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi1)))
(fma.f64 #s(literal -1 binary64) (*.f64 phi2 (neg.f64 phi2)) (neg.f64 (*.f64 phi1 phi1)))
(fma.f64 #s(literal -1 binary64) (*.f64 phi2 phi2) (*.f64 phi1 phi1))
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 (*.f64 phi2 phi1) (neg.f64 phi1)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi1)))
(fma.f64 #s(literal 1 binary64) (*.f64 phi2 phi2) (neg.f64 (*.f64 phi1 phi1)))
(fma.f64 #s(literal 1 binary64) (*.f64 phi1 phi1) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi1) (*.f64 (/.f64 #s(literal -1 binary64) phi2) (neg.f64 phi1)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (neg.f64 phi2) phi2 (*.f64 phi1 phi1))
(fma.f64 (neg.f64 phi2) (neg.f64 phi2) (*.f64 phi1 (neg.f64 phi1)))
(fma.f64 (neg.f64 phi2) (neg.f64 phi2) (neg.f64 (*.f64 phi1 phi1)))
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (neg.f64 phi1)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (neg.f64 phi1) (neg.f64 phi1) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 phi1 phi2) (*.f64 phi2 phi1) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 phi2) #s(literal 1 binary64) (*.f64 phi1 (neg.f64 phi1)))
(fma.f64 (*.f64 phi2 phi2) #s(literal 1 binary64) (neg.f64 (*.f64 phi1 phi1)))
(fma.f64 (*.f64 phi2 phi2) (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 (*.f64 phi2 phi1) phi2) (/.f64 (*.f64 phi2 phi1) phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 phi2 (neg.f64 phi1)) (/.f64 phi1 (neg.f64 phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)) (*.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 #s(literal -1 binary64) phi2)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)) (pow.f64 (/.f64 #s(literal 1 binary64) phi2) #s(literal 2 binary64)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (neg.f64 phi2) #s(literal -1 binary64)) phi2 (*.f64 phi1 (neg.f64 phi1)))
(fma.f64 (*.f64 (neg.f64 phi2) #s(literal -1 binary64)) phi2 (neg.f64 (*.f64 phi1 phi1)))
(fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 #s(literal -1 binary64) phi2)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (*.f64 (neg.f64 phi1) (*.f64 phi2 phi1)) (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)) (*.f64 phi2 (neg.f64 phi2)))
(fma.f64 (exp.f64 (log.f64 phi2)) (exp.f64 (log.f64 phi2)) (*.f64 phi1 (neg.f64 phi1)))
(fma.f64 (exp.f64 (log.f64 phi2)) (exp.f64 (log.f64 phi2)) (neg.f64 (*.f64 phi1 phi1)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64)) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)))))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (*.f64 phi1 phi1)))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))))) (neg.f64 (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal 1 binary64))) (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 1 binary64))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))) (neg.f64 (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))) (neg.f64 (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (pow.f64 (*.f64 phi1 (neg.f64 phi1)) #s(literal 3 binary64))) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (-.f64 (*.f64 (*.f64 phi1 (neg.f64 phi1)) (*.f64 phi1 (neg.f64 phi1))) (*.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi1))))))
(/.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (pow.f64 (neg.f64 (*.f64 phi1 phi1)) #s(literal 3 binary64))) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (-.f64 (*.f64 (neg.f64 (*.f64 phi1 phi1)) (neg.f64 (*.f64 phi1 phi1))) (*.f64 (*.f64 phi2 phi2) (neg.f64 (*.f64 phi1 phi1))))))
(/.f64 (-.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2))) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1) (*.f64 (*.f64 phi2 phi1) (*.f64 phi2 phi1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (fma.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (*.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))))))
(pow.f64 (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))) (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi1 phi1 (*.f64 phi2 phi2)) (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(*.f64 phi2 (+.f64 (neg.f64 phi2) (/.f64 (*.f64 phi1 phi1) phi2)))
(*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2)))
(*.f64 phi2 (-.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2))
(*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))
(*.f64 (-.f64 phi2 phi1) (+.f64 phi2 phi1))
(*.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))
(*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1 binary64))
(*.f64 (fma.f64 (*.f64 phi2 phi2) (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (*.f64 phi1 (*.f64 phi1 phi1)))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 phi2 (neg.f64 phi2)) (-.f64 (*.f64 phi2 (neg.f64 phi2)) (*.f64 phi1 phi1)) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(*.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))))
(-.f64 #s(literal 0 binary64) phi1)
(-.f64 #s(literal 0 binary64) (/.f64 (*.f64 phi2 phi1) phi2))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi1) phi2))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 phi2 (/.f64 #s(literal -1 binary64) phi1))) (/.f64 (neg.f64 phi2) (*.f64 phi2 (/.f64 #s(literal -1 binary64) phi1))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (/.f64 #s(literal 1 binary64) phi1) (neg.f64 phi2))) (/.f64 (neg.f64 phi2) (*.f64 (/.f64 #s(literal 1 binary64) phi1) (neg.f64 phi2))))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) phi1)) (neg.f64 phi2)) (/.f64 (*.f64 phi2 phi1) phi2))
(neg.f64 phi1)
(neg.f64 (/.f64 (*.f64 phi2 phi1) phi2))
(/.f64 phi2 (/.f64 phi2 (neg.f64 phi1)))
(/.f64 phi2 (*.f64 phi2 (/.f64 #s(literal -1 binary64) phi1)))
(/.f64 phi2 (*.f64 (/.f64 #s(literal 1 binary64) phi1) (neg.f64 phi2)))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 #s(literal -1 binary64) (*.f64 phi2 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) phi2))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (neg.f64 phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) (neg.f64 phi2))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 phi2 (neg.f64 phi1)) phi2)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal -1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi2 (*.f64 phi2 (neg.f64 phi1)))))
(/.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) phi1))
(/.f64 #s(literal 1 binary64) (*.f64 (neg.f64 phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) (neg.f64 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 phi2 (neg.f64 phi1)) phi2))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 phi2 (*.f64 phi2 (neg.f64 phi1))))
(/.f64 #s(literal 1 binary64) (neg.f64 (*.f64 phi2 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) phi2)))
(/.f64 (*.f64 phi2 phi1) (neg.f64 phi2))
(/.f64 (neg.f64 phi2) (/.f64 phi2 phi1))
(/.f64 (neg.f64 phi2) (neg.f64 (/.f64 phi2 (neg.f64 phi1))))
(/.f64 (neg.f64 phi2) (neg.f64 (*.f64 phi2 (/.f64 #s(literal -1 binary64) phi1))))
(/.f64 (neg.f64 phi2) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) phi1) (neg.f64 phi2))))
(/.f64 (*.f64 phi2 (neg.f64 phi1)) phi2)
(/.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)) (*.f64 (neg.f64 phi2) (/.f64 #s(literal -1 binary64) phi1)))
(/.f64 (*.f64 (neg.f64 phi2) #s(literal -1 binary64)) (*.f64 (/.f64 #s(literal -1 binary64) phi1) phi2))
(/.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal -1 binary64) phi1) (neg.f64 phi2)))
(/.f64 (*.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)))
(/.f64 (*.f64 (*.f64 phi2 phi1) #s(literal 1 binary64)) (neg.f64 phi2))
(/.f64 (*.f64 (neg.f64 phi2) (/.f64 #s(literal -1 binary64) phi2)) (/.f64 #s(literal -1 binary64) phi1))
(/.f64 (/.f64 (*.f64 phi2 phi1) #s(literal -1 binary64)) phi2)
(/.f64 (neg.f64 (/.f64 #s(literal -1 binary64) phi2)) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2))) (neg.f64 (*.f64 (neg.f64 phi2) (/.f64 #s(literal -1 binary64) phi1))))
(/.f64 (neg.f64 (*.f64 (neg.f64 phi2) #s(literal -1 binary64))) (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) phi1) phi2)))
(/.f64 (neg.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64))) (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) phi1) (neg.f64 phi2))))
(/.f64 (neg.f64 (*.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (*.f64 phi2 phi1) #s(literal 1 binary64))) phi2)
(/.f64 (neg.f64 (*.f64 (neg.f64 phi2) (/.f64 #s(literal -1 binary64) phi2))) (/.f64 #s(literal 1 binary64) phi1))
(/.f64 (neg.f64 (/.f64 (*.f64 phi2 phi1) #s(literal -1 binary64))) (neg.f64 phi2))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) (/.f64 (*.f64 phi2 phi1) phi2)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) #s(literal 3 binary64)) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 (/.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) (/.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) (fma.f64 phi1 phi1 (*.f64 (/.f64 #s(literal 0 binary64) (/.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi1) phi2)))))
(pow.f64 (/.f64 #s(literal -1 binary64) phi1) #s(literal -1 binary64))
(pow.f64 (*.f64 (neg.f64 phi2) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1))) #s(literal -1 binary64))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi1)) (neg.f64 phi2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 phi2 (neg.f64 phi1)) phi2) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) phi1) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 phi2 (*.f64 phi2 (neg.f64 phi1))) #s(literal -1 binary64))
(*.f64 phi2 (/.f64 phi1 (neg.f64 phi2)))
(*.f64 phi1 #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi1) phi2))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi2 phi1)))
(*.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1))
(*.f64 #s(literal 1 binary64) (neg.f64 phi1))
(*.f64 (*.f64 phi2 phi1) (/.f64 #s(literal -1 binary64) phi2))
(*.f64 (neg.f64 phi2) (/.f64 phi1 phi2))
(*.f64 (/.f64 phi1 (neg.f64 phi2)) phi2)
(*.f64 (*.f64 phi2 (neg.f64 phi1)) (/.f64 #s(literal 1 binary64) phi2))
(*.f64 (/.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64)) (*.f64 phi2 phi1))
(+.f64 phi2 phi1)
(+.f64 phi2 (neg.f64 (neg.f64 phi1)))
(+.f64 phi1 phi2)
(+.f64 (neg.f64 phi2) (neg.f64 phi1))
(+.f64 (neg.f64 phi1) (neg.f64 phi2))
(+.f64 (neg.f64 (neg.f64 phi1)) phi2)
(exp.f64 (neg.f64 (*.f64 (log.f64 (+.f64 phi2 phi1)) #s(literal -1 binary64))))
(-.f64 phi1 (neg.f64 phi2))
(-.f64 (neg.f64 phi2) (/.f64 (*.f64 phi2 phi1) phi2))
(-.f64 (neg.f64 phi2) (/.f64 (/.f64 (*.f64 phi2 phi1) phi2) #s(literal 1 binary64)))
(-.f64 (neg.f64 phi1) phi2)
(-.f64 #s(literal 0 binary64) (+.f64 phi2 phi1))
(-.f64 #s(literal 0 binary64) (-.f64 phi2 (neg.f64 phi1)))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 phi2 (neg.f64 phi1)) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)))
(-.f64 (/.f64 phi1 #s(literal -1 binary64)) phi2)
(-.f64 (+.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2)
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (neg.f64 (-.f64 phi2 phi1))) (/.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (neg.f64 (-.f64 phi2 phi1))))
(-.f64 (/.f64 (*.f64 phi1 phi1) (neg.f64 (-.f64 phi2 phi1))) (/.f64 (*.f64 phi2 phi2) (neg.f64 (-.f64 phi2 phi1))))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (-.f64 phi2 phi1)) (/.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 phi2))) (-.f64 phi2 phi1)))
(-.f64 (/.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)) #s(literal 1 binary64)) (/.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(-.f64 (/.f64 (/.f64 phi1 #s(literal -1 binary64)) #s(literal 1 binary64)) phi2)
(-.f64 (/.f64 (+.f64 (neg.f64 phi1) #s(literal 0 binary64)) #s(literal 1 binary64)) phi2)
(-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi1)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(fma.f64 phi2 #s(literal -1 binary64) (neg.f64 phi1))
(fma.f64 phi2 #s(literal 1 binary64) phi1)
(fma.f64 phi2 #s(literal 1 binary64) (neg.f64 (neg.f64 phi1)))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) (neg.f64 phi2))
(fma.f64 phi1 #s(literal -1 binary64) (neg.f64 phi2))
(fma.f64 phi1 #s(literal 1 binary64) phi2)
(fma.f64 #s(literal -1 binary64) phi2 (neg.f64 phi1))
(fma.f64 #s(literal -1 binary64) phi1 (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) (neg.f64 phi2) phi1)
(fma.f64 #s(literal -1 binary64) (neg.f64 phi2) (neg.f64 (neg.f64 phi1)))
(fma.f64 #s(literal -1 binary64) (neg.f64 phi1) phi2)
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 phi2 phi1) phi2) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) phi2) (*.f64 phi2 phi1)) (neg.f64 phi2))
(fma.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 phi1) #s(literal 1 binary64)) phi2)
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) (neg.f64 phi2))
(fma.f64 #s(literal 1 binary64) phi2 phi1)
(fma.f64 #s(literal 1 binary64) phi2 (neg.f64 (neg.f64 phi1)))
(fma.f64 #s(literal 1 binary64) phi1 phi2)
(fma.f64 #s(literal 1 binary64) (neg.f64 phi1) (neg.f64 phi2))
(fma.f64 (*.f64 phi2 phi1) (/.f64 #s(literal -1 binary64) phi2) (neg.f64 phi2))
(fma.f64 (neg.f64 phi2) (/.f64 phi1 phi2) (neg.f64 phi2))
(fma.f64 (/.f64 phi1 (neg.f64 phi2)) phi2 (neg.f64 phi2))
(fma.f64 (*.f64 phi2 (neg.f64 phi1)) (/.f64 #s(literal 1 binary64) phi2) (neg.f64 phi2))
(fma.f64 (/.f64 (/.f64 #s(literal -1 binary64) phi2) #s(literal 1 binary64)) (*.f64 phi2 phi1) (neg.f64 phi2))
(fma.f64 (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 phi1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) phi2)
(neg.f64 (+.f64 phi2 phi1))
(neg.f64 (+.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2)))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))
(/.f64 (+.f64 phi2 phi1) #s(literal -1 binary64))
(/.f64 (+.f64 phi2 phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (-.f64 phi2 phi1))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (neg.f64 (-.f64 phi2 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi1))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (*.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi1 phi1 (fma.f64 phi2 phi2 (*.f64 phi1 (neg.f64 phi2)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (fma.f64 phi2 phi2 (fma.f64 phi1 phi1 (*.f64 (neg.f64 phi2) (/.f64 (*.f64 phi2 phi1) phi2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (-.f64 phi2 phi1))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (neg.f64 (-.f64 phi2 phi1)))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (neg.f64 (neg.f64 (-.f64 phi2 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (*.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (neg.f64 (fma.f64 phi2 phi2 (-.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi1)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (neg.f64 (-.f64 phi2 phi1)))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)))) (neg.f64 (neg.f64 (-.f64 phi2 phi1))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))))) (neg.f64 (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (pow.f64 (neg.f64 (neg.f64 phi1)) #s(literal 3 binary64))) (fma.f64 phi2 phi2 (-.f64 (*.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 (neg.f64 phi1))) (*.f64 phi2 (neg.f64 (neg.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (neg.f64 (neg.f64 phi1)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 (neg.f64 phi1)) (-.f64 (*.f64 phi2 phi2) (*.f64 (neg.f64 (neg.f64 phi1)) phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (+.f64 phi2 phi1) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (fma.f64 (+.f64 phi2 phi1) (+.f64 phi2 phi1) (*.f64 #s(literal 0 binary64) (+.f64 phi2 phi1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (-.f64 phi2 (neg.f64 phi1)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (fma.f64 (-.f64 phi2 (neg.f64 phi1)) (-.f64 phi2 (neg.f64 phi1)) (*.f64 #s(literal 0 binary64) (-.f64 phi2 (neg.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 phi1 #s(literal -1 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (/.f64 phi1 #s(literal -1 binary64)) (/.f64 phi1 #s(literal -1 binary64)) (fma.f64 phi2 phi2 (*.f64 (/.f64 phi1 #s(literal -1 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (+.f64 (neg.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 phi2 (*.f64 phi2 phi2))) (fma.f64 (+.f64 (neg.f64 phi1) #s(literal 0 binary64)) (+.f64 (neg.f64 phi1) #s(literal 0 binary64)) (fma.f64 phi2 phi2 (*.f64 (+.f64 (neg.f64 phi1) #s(literal 0 binary64)) phi2))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)) (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)) (fma.f64 (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 phi1)) (*.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (-.f64 phi2 phi1))))))
(pow.f64 (+.f64 phi2 phi1) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal -1 binary64) (+.f64 phi2 phi1)) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) #s(literal -1 binary64))
(*.f64 phi2 (+.f64 #s(literal -1 binary64) (/.f64 phi1 (neg.f64 phi2))))
(*.f64 phi2 (+.f64 (/.f64 phi1 (neg.f64 phi2)) #s(literal -1 binary64)))
(*.f64 (+.f64 phi2 phi1) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (+.f64 phi2 phi1))
(*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (/.f64 #s(literal 1 binary64) (-.f64 phi2 phi1)))
(*.f64 (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (fma.f64 phi2 (*.f64 phi2 phi2) (*.f64 phi1 (*.f64 phi1 phi1)))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (+.f64 phi2 phi1))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 lambda2))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 lambda2))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 lambda2)))
(-.f64 #s(literal 0 binary64) (*.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(neg.f64 (*.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (fma.f64 (*.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(*.f64 #s(literal -1 binary64) (*.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 lambda2))
(*.f64 (neg.f64 lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (neg.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))) lambda2)
(*.f64 (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal -1 binary64)) lambda2)
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))
(+.f64 lambda1 (neg.f64 lambda2))
(+.f64 (neg.f64 lambda2) lambda1)
(-.f64 lambda1 lambda2)
(-.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (fma.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)
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (neg.f64 lambda2))) (/.f64 (*.f64 lambda2 lambda2) (-.f64 lambda1 (neg.f64 lambda2))))
(fma.f64 lambda2 #s(literal -1 binary64) lambda1)
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (fma.f64 lambda1 lambda1 (-.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda1 lambda1 (-.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (neg.f64 lambda2))))))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (neg.f64 (-.f64 lambda1 (neg.f64 lambda2))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (neg.f64 (neg.f64 (+.f64 lambda1 lambda2))))
(/.f64 (fma.f64 (neg.f64 lambda2) (*.f64 lambda2 lambda2) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (fma.f64 lambda2 lambda2 (-.f64 (*.f64 lambda1 lambda1) (*.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (fma.f64 (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (/.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (*.f64 lambda2 (*.f64 lambda2 lambda2)) (fma.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))) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (fma.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 (pow.f64 (+.f64 lambda1 #s(literal 0 binary64)) #s(literal 3 binary64)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (fma.f64 (+.f64 lambda1 #s(literal 0 binary64)) (+.f64 lambda1 #s(literal 0 binary64)) (fma.f64 lambda2 lambda2 (*.f64 (+.f64 lambda1 #s(literal 0 binary64)) lambda2))))
(pow.f64 (/.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(*.f64 (*.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 phi1))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))

eval371.0ms (2.9%)

Memory
17.7MiB live, 437.9MiB allocated
Compiler

Compiled 54 420 to 2 957 computations (94.6% saved)

prune485.0ms (3.7%)

Memory
-7.0MiB live, 673.7MiB allocated
Pruning

55 alts after pruning (48 fresh and 7 done)

PrunedKeptTotal
New1 587131 600
Fresh213556
Picked325
Done055
Total1 611551 666
Accuracy
98.9%
Counts
1 666 → 55
Alt Table
Click to see full alt table
StatusAccuracyProgram
48.4%
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
60.0%
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
27.6%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
24.7%
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
50.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
46.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (pow.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)) #s(literal 2 binary64))))
56.2%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
✓70.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
65.2%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
25.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
42.1%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
42.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
50.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
27.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
14.6%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
15.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
31.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
15.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.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))))) (neg.f64 lambda2))))
37.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
✓10.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
9.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
23.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
16.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
12.6%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
19.1%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 phi1 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
54.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
18.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
✓30.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
45.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (exp.f64 (*.f64 (log.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64)))))
54.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
✓59.0%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
19.5%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
37.8%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
28.9%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
11.3%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
19.7%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
29.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
10.4%
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
39.8%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
58.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
29.1%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- 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))))) R) lambda2))
✓29.0%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
28.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda2))
28.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
29.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
13.6%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
12.9%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
19.5%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
✓3.3%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
54.7%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
58.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
✓34.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
19.4%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1)))))
57.3%
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
Compiler

Compiled 2 684 to 1 014 computations (62.2% saved)

regimes301.0ms (2.3%)

Memory
2.1MiB live, 313.6MiB allocated
Counts
93 → 2
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda1 (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 lambda1 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (pow.f64 (pow.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)) #s(literal 2 binary64))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (fma.f64 phi1 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (exp.f64 (*.f64 (log.f64 (fma.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 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.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)))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- 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))))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.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))))) (neg.f64 lambda2))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
Calls

9 calls:

70.0ms
lambda1
33.0ms
lambda2
32.0ms
(-.f64 lambda1 lambda2)
30.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)))
29.0ms
phi2
Results
AccuracySegmentsBranch
79.2%3R
80.6%3lambda1
80.1%3lambda2
91.0%2phi1
92.2%2phi2
80.4%2(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
80.8%2(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
80.8%2(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
88.0%4(-.f64 lambda1 lambda2)
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes65.0ms (0.5%)

Memory
11.1MiB live, 83.9MiB allocated
Counts
79 → 3
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
Calls

2 calls:

36.0ms
phi1
25.0ms
phi2
Results
AccuracySegmentsBranch
84.8%2phi1
90.6%3phi2
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes102.0ms (0.8%)

Memory
-13.3MiB live, 76.1MiB allocated
Counts
78 → 3
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
Calls

3 calls:

39.0ms
(-.f64 lambda1 lambda2)
38.0ms
phi2
20.0ms
phi1
Results
AccuracySegmentsBranch
80.7%2phi1
81.1%4(-.f64 lambda1 lambda2)
85.3%3phi2
Compiler

Compiled 20 to 16 computations (20% saved)

regimes26.0ms (0.2%)

Memory
-20.0MiB live, 18.3MiB allocated
Counts
77 → 3
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 #s(approx (cos (* 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 (*.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 (*.f64 R lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
Calls

1 calls:

22.0ms
phi2
Results
AccuracySegmentsBranch
82.9%3phi2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes17.0ms (0.1%)

Memory
11.0MiB live, 11.0MiB allocated
Counts
52 → 2
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
Calls

1 calls:

14.0ms
phi2
Results
AccuracySegmentsBranch
81.3%2phi2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes135.0ms (1%)

Memory
7.7MiB live, 161.9MiB allocated
Counts
51 → 2
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
Calls

9 calls:

18.0ms
phi1
17.0ms
R
16.0ms
lambda2
14.0ms
phi2
14.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
65.5%2R
68.4%2(-.f64 lambda1 lambda2)
71.4%2lambda2
70.0%3lambda1
62.2%3(*.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)))))
72.1%2phi1
62.6%3(sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
62.6%3(+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
65.9%3phi2
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes75.0ms (0.6%)

Memory
17.1MiB live, 87.4MiB allocated
Counts
50 → 3
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2)) (fma.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 phi2 (neg.f64 phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (*.f64 phi2 (fma.f64 phi1 (/.f64 phi1 phi2) (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 phi1 (*.f64 phi1 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi1) phi2) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))) (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2)))))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) #s(approx (+ (* phi2 (neg (/ phi1 phi2))) (neg phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))) (*.f64 phi2 (-.f64 #s(literal 0 binary64) (*.f64 phi2 (*.f64 phi2 phi2))))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (/.f64 (*.f64 phi1 phi1) phi2) (*.f64 phi2 phi2)) phi2) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (/.f64 (*.f64 phi1 phi2) phi2) (/.f64 (*.f64 phi1 phi2) phi2) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (*.f64 phi2 (/.f64 phi1 (neg.f64 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2 (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi2 (/.f64 phi1 phi2) phi2))) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2))))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (*.f64 phi2 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 phi2 (neg.f64 phi2)) phi2 (*.f64 (+.f64 #s(literal 0 binary64) phi2) (*.f64 (neg.f64 phi1) phi2))) (*.f64 (+.f64 #s(literal 0 binary64) phi2) phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 (*.f64 phi1 #s(literal 1 binary64)))) (*.f64 phi2 (*.f64 phi2 (*.f64 phi2 phi2)))) (fma.f64 (*.f64 phi1 phi1) #s(literal 1 binary64) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))
Calls

4 calls:

28.0ms
phi1
16.0ms
lambda1
13.0ms
lambda2
13.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
64.2%2(-.f64 lambda1 lambda2)
66.1%3lambda1
63.3%2lambda2
69.6%3phi1
Compiler

Compiled 26 to 21 computations (19.2% saved)

regimes19.0ms (0.1%)

Memory
-31.8MiB live, 18.5MiB allocated
Counts
33 → 3
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 phi2 (/.f64 phi2 phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 phi2 phi1))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (*.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi2 (/.f64 #s(literal 1 binary64) phi1)) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 #s(approx (- (/ (* (* phi1 phi1) (* phi2 phi2)) (* phi2 phi2)) (* phi2 phi2)) (*.f64 phi2 (neg.f64 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (neg.f64 (/.f64 phi1 phi2)) (neg.f64 phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 phi1) phi2) (+.f64 #s(literal 0 binary64) phi2)) (*.f64 phi2 (*.f64 phi2 (neg.f64 phi2)))) (*.f64 phi2 (+.f64 #s(literal 0 binary64) phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (* (cos (* 1/2 phi2)) (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
Calls

1 calls:

17.0ms
phi1
Results
AccuracySegmentsBranch
69.6%3phi1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes43.0ms (0.3%)

Memory
14.9MiB live, 52.8MiB allocated
Counts
21 → 2
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 (neg.f64 R) (/.f64 phi1 phi2) R)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* (/ -1 phi2) (/ phi2 (/ 1 phi1))) phi2) (fma.f64 phi1 (/.f64 phi2 phi1) (neg.f64 phi1)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (-.f64 phi2 (/.f64 (*.f64 phi2 phi1) phi2))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (neg.f64 phi2) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 (-.f64 R (/.f64 (*.f64 R phi2) phi1)) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (*.f64 (/.f64 #s(literal -1 binary64) phi2) phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (*.f64 phi1 phi2) (/.f64 #s(literal -1 binary64) phi2) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 (/.f64 #s(literal -1 binary64) phi2) (*.f64 phi2 phi1) phi2)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) (+.f64 phi2 phi1))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
Calls

6 calls:

10.0ms
phi2
6.0ms
lambda1
6.0ms
(-.f64 lambda1 lambda2)
6.0ms
phi1
6.0ms
R
Results
AccuracySegmentsBranch
61.1%2lambda2
61.5%2(-.f64 lambda1 lambda2)
61.9%2phi2
61.2%2lambda1
63.0%2R
63.0%2phi1
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes30.0ms (0.2%)

Memory
-6.4MiB live, 31.5MiB allocated
Counts
5 → 1
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi1 phi1))))
(*.f64 R (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
Calls

9 calls:

11.0ms
lambda2
2.0ms
phi2
2.0ms
R
2.0ms
phi1
2.0ms
lambda1
Results
AccuracySegmentsBranch
59.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)))))
59.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))))
59.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)))
59.0%1lambda2
59.0%1lambda1
59.0%1(-.f64 lambda1 lambda2)
59.0%1phi2
59.0%1phi1
59.0%1R
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes14.0ms (0.1%)

Memory
15.8MiB live, 15.8MiB allocated
Counts
2 → 2
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
Outputs
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
Calls

9 calls:

2.0ms
phi1
2.0ms
(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
2.0ms
(-.f64 lambda1 lambda2)
1.0ms
phi2
1.0ms
R
Results
AccuracySegmentsBranch
41.0%4lambda1
41.0%3(-.f64 lambda1 lambda2)
53.9%2phi2
41.2%4lambda2
34.4%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))))
34.4%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)))
38.9%3R
34.4%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)))))
52.6%2phi1
Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes8.0ms (0.1%)

Memory
10.4MiB live, 10.4MiB allocated
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts
1 → 1
Calls
Call 1
Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
Outputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
Calls

6 calls:

1.0ms
lambda2
1.0ms
(-.f64 lambda1 lambda2)
1.0ms
phi2
1.0ms
R
1.0ms
lambda1
Results
AccuracySegmentsBranch
34.4%1R
34.4%1lambda1
34.4%1lambda2
34.4%1(-.f64 lambda1 lambda2)
34.4%1phi1
34.4%1phi2
Compiler

Compiled 38 to 31 computations (18.4% saved)

bsearch24.0ms (0.2%)

Memory
-25.4MiB live, 14.0MiB allocated
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
22.0ms
1.1712671410415562e-25
9.493780243671203e-24
Samples
14.0ms95×0valid
4.0ms17×1valid
Compiler

Compiled 306 to 204 computations (33.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 8.0ms
ival-mult: 2.0ms (24.5% of total)
ival-hypot: 2.0ms (24.5% of total)
ival-add: 1.0ms (12.2% of total)
ival-div: 1.0ms (12.2% of total)
ival-sub: 1.0ms (12.2% of total)
ival-cos: 1.0ms (12.2% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch17.0ms (0.1%)

Memory
11.5MiB live, 11.5MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
15.0ms
9.156127044679814e+72
2.2387240855887767e+73
1.0ms
1.1712671410415562e-25
9.493780243671203e-24
Samples
8.0ms41×1valid
4.0ms39×0valid
Compiler

Compiled 622 to 369 computations (40.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 9.0ms
ival-hypot: 2.0ms (23.2% of total)
ival-cos: 2.0ms (23.2% of total)
ival-add: 1.0ms (11.6% of total)
adjust: 1.0ms (11.6% of total)
ival-div: 1.0ms (11.6% of total)
ival-mult: 1.0ms (11.6% of total)
ival-sub: 1.0ms (11.6% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch2.0ms (0%)

Memory
1.3MiB live, 1.3MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
0.0ms
9.156127044679814e+72
2.2387240855887767e+73
1.0ms
1.1712671410415562e-25
9.493780243671203e-24
Compiler

Compiled 594 to 341 computations (42.6% saved)

bsearch37.0ms (0.3%)

Memory
-9.4MiB live, 30.2MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
23.0ms
3.8001531403134895e+92
9.647156330847486e+92
12.0ms
1.1712671410415562e-25
9.493780243671203e-24
Samples
19.0ms52×1valid
9.0ms108×0valid
Compiler

Compiled 390 to 233 computations (40.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 14.0ms
ival-mult: 3.0ms (21.1% of total)
ival-hypot: 3.0ms (21.1% of total)
ival-cos: 3.0ms (21.1% of total)
ival-sub: 2.0ms (14% of total)
ival-add: 1.0ms (7% of total)
adjust: 1.0ms (7% of total)
ival-div: 1.0ms (7% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch18.0ms (0.1%)

Memory
23.4MiB live, 23.4MiB allocated
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
16.0ms
1.5346628063095488e-18
3.7531524698783474e-16
Samples
8.0ms93×0valid
4.0ms19×1valid
Compiler

Compiled 236 to 141 computations (40.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 8.0ms
ival-mult: 2.0ms (24.7% of total)
ival-hypot: 2.0ms (24.7% of total)
ival-add: 1.0ms (12.3% of total)
ival-div: 1.0ms (12.3% of total)
ival-sub: 1.0ms (12.3% of total)
ival-cos: 1.0ms (12.3% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch15.0ms (0.1%)

Memory
-20.0MiB live, 17.6MiB allocated
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
14.0ms
-1.0383762612687742e-10
-4.808918369033541e-11
Samples
6.0ms70×0valid
2.0ms10×1valid
Compiler

Compiled 180 to 107 computations (40.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 6.0ms
ival-div: 1.0ms (17.6% of total)
ival-mult: 1.0ms (17.6% of total)
ival-hypot: 1.0ms (17.6% of total)
ival-sub: 1.0ms (17.6% of total)
ival-cos: 1.0ms (17.6% of total)
adjust: 0.0ms (0% of total)
ival-add: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch38.0ms (0.3%)

Memory
23.8MiB live, 61.8MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
25.0ms
4.5130952300401027e-113
2.8921465735648774e-95
9.0ms
-1.0383762612687742e-10
-4.808918369033541e-11
Samples
16.0ms181×0valid
9.0ms43×1valid
Compiler

Compiled 705 to 377 computations (46.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 17.0ms
ival-hypot: 4.0ms (23.4% of total)
ival-mult: 3.0ms (17.5% of total)
ival-cos: 3.0ms (17.5% of total)
ival-div: 2.0ms (11.7% of total)
ival-sub: 2.0ms (11.7% of total)
ival-add: 1.0ms (5.8% of total)
adjust: 1.0ms (5.8% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory
1.9MiB live, 1.9MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
4.5130952300401027e-113
2.8921465735648774e-95
0.0ms
-1.0383762612687742e-10
-4.808918369033541e-11
Compiler

Compiled 565 to 307 computations (45.7% saved)

bsearch16.0ms (0.1%)

Memory
-20.6MiB live, 17.5MiB allocated
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
14.0ms
1.1473449356089396e+121
3.7672390484133135e+121
Samples
6.0ms20×1valid
5.0ms60×0valid
Compiler

Compiled 185 to 112 computations (39.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 9.0ms
ival-hypot: 4.0ms (46.3% of total)
adjust: 1.0ms (11.6% of total)
ival-div: 1.0ms (11.6% of total)
ival-mult: 1.0ms (11.6% of total)
ival-sub: 1.0ms (11.6% of total)
ival-cos: 1.0ms (11.6% of total)
ival-add: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch17.0ms (0.1%)

Memory
19.3MiB live, 19.3MiB allocated
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
15.0ms
4.705791883208089e-48
3.3752239777219616e-46
Samples
8.0ms99×0valid
2.0ms13×1valid
Compiler

Compiled 187 to 127 computations (32.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 7.0ms
ival-mult: 2.0ms (27.1% of total)
ival-hypot: 2.0ms (27.1% of total)
ival-add: 1.0ms (13.6% of total)
ival-div: 1.0ms (13.6% of total)
ival-sub: 1.0ms (13.6% of total)
ival-cos: 1.0ms (13.6% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

simplify28.0ms (0.2%)

Memory
-29.9MiB live, 17.7MiB allocated
Algorithm
1×egg-herbie
Rules
56×*-commutative_binary64
30×+-commutative_binary64
28×sub-neg_binary64
18×neg-sub0_binary64
18×neg-mul-1_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01291249
11681249
21941249
32151249
42271249
52311249
62321249
Stop Event
1×saturated
Calls
Call 1
Inputs
(if (<=.f64 phi2 #s(literal 1565298887836317/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi2 #s(literal 1565298887836317/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (if (<=.f64 phi2 #s(literal 19999999999999999660673935899226515960618160481369312643676908399133458432 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 1531270651144223/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 19999999999999999660673935899226515960618160481369312643676908399133458432 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 7350099125492271/5444517870735015415413993718908291383296 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 780000000000000022255082716471345594809330292593721877870585089118114710108192865742919565312 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 3752245776675559/10141204801825835211973625643008 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))))
(if (<=.f64 phi1 #s(literal -7350268983256945/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(if (<=.f64 phi1 #s(literal -3791191370311477/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (if (<=.f64 phi1 #s(literal 2462625387274655/2462625387274654950767440006258975862817483704404090416746768337765357610718575663213391640930307227550414249394176 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))))
(if (<=.f64 phi1 #s(literal -3791191370311477/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (if (<=.f64 phi1 #s(literal 2462625387274655/2462625387274654950767440006258975862817483704404090416746768337765357610718575663213391640930307227550414249394176 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 R #s(literal 28999999999999999133413255075672895317042738681252379427900177397057259556996828115113534101909179744136187041485523255296 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(if (<=.f64 phi2 #s(literal 4113761393303015/12855504354071922204335696738729300820177623950262342682411008 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
Outputs
(if (<=.f64 phi2 #s(literal 1565298887836317/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi2 #s(literal 1565298887836317/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(if (<=.f64 phi2 #s(literal 1565298887836317/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (if (<=.f64 phi2 #s(literal 19999999999999999660673935899226515960618160481369312643676908399133458432 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 1565298887836317/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (if (<=.f64 phi2 #s(literal 19999999999999999660673935899226515960618160481369312643676908399133458432 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 1531270651144223/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 19999999999999999660673935899226515960618160481369312643676908399133458432 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 1531270651144223/170141183460469231731687303715884105728 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 19999999999999999660673935899226515960618160481369312643676908399133458432 binary64)) (*.f64 R (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 7350099125492271/5444517870735015415413993718908291383296 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (if (<=.f64 phi2 #s(literal 780000000000000022255082716471345594809330292593721877870585089118114710108192865742919565312 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi2 #s(literal 3752245776675559/10141204801825835211973625643008 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))))
(if (<=.f64 phi1 #s(literal -7350268983256945/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
(if (<=.f64 phi1 #s(literal -3791191370311477/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (if (<=.f64 phi1 #s(literal 2462625387274655/2462625387274654950767440006258975862817483704404090416746768337765357610718575663213391640930307227550414249394176 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))) phi2)))))
(if (<=.f64 phi1 #s(literal -3791191370311477/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (if (<=.f64 phi1 #s(literal 2462625387274655/2462625387274654950767440006258975862817483704404090416746768337765357610718575663213391640930307227550414249394176 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (-.f64 (/.f64 #s(literal 0 binary64) phi2) (/.f64 (*.f64 phi2 phi2) phi2))) phi2)))))
(if (<=.f64 phi1 #s(literal -3791191370311477/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (if (<=.f64 phi1 #s(literal 2462625387274655/2462625387274654950767440006258975862817483704404090416746768337765357610718575663213391640930307227550414249394176 binary64)) (*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 phi1 #s(literal -3791191370311477/77371252455336267181195264 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) (if (<=.f64 phi1 #s(literal 2462625387274655/2462625387274654950767440006258975862817483704404090416746768337765357610718575663213391640930307227550414249394176 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(approx (* (cos (* 1/2 phi2)) (- lambda1 lambda2)) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))))
(if (<=.f64 R #s(literal 28999999999999999133413255075672895317042738681252379427900177397057259556996828115113534101909179744136187041485523255296 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1)))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2))))))
(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (+ (* phi2 (/ phi1 (neg phi2))) phi2) (-.f64 phi2 phi1))))
(if (<=.f64 phi2 #s(literal 4113761393303015/12855504354071922204335696738729300820177623950262342682411008 binary64)) (*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))

soundness1.2s (9.3%)

Memory
12.9MiB live, 1 073.5MiB allocated
Rules
10 312×lower-fma.f64
10 312×lower-fma.f32
10 254×lower-fma.f64
10 254×lower-fma.f32
10 090×lower-fma.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0108225813
1357024135
0808022253
0104328022
1345626212
0808424056
088410001
129749253
277969253
080688635
0103130251
1341028237
0808225970
061563
093429
1326407
22393357
09024312
042394
065306
1204306
21348306
08242266
017128
02886
19786
272086
0887276
Stop Event
1×fuel
1×iter limit
1×node limit
1×iter limit
1×iter limit
1×node limit
1×iter limit
1×iter limit
1×node limit
1×iter limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
Compiler

Compiled 912 to 474 computations (48% saved)

preprocess189.0ms (1.5%)

Memory
-3.6MiB live, 208.7MiB allocated
Remove

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 1 040 to 374 computations (64% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated

Profiling

Loading profile data...